помоги пожалуйста 3 задачи надо в паскале сделать, если хочешь могу заплатить

вот образец одной из задач, можешь сам переделать под свои условия или я сделаю, пришли свою почту
{ Составьте программу вычисления минимального
элемента и его индексов матрицы A(M, N). }

program mas1;
uses crt;
var
j,i,n,m,min,mini,minj:integer;
a:array[1..100,1..100] of integer;

BEGIN
randomize;
clrscr;
writeln('решение задачи на массивы ');
writeln('---------------------------');
write('Ввести число строк матрици M--> ');
readln(m);
write('Ввести число столбцов матрици N--> ');
readln(n);
writeln('Исходный массив ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(21);
write(a[i,j]:3);
end;
writeln; end;
min:=a[1,1]; mini:=1; minj:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]<min then begin
min:=a[i,j]; mini:=i; minj:=j end;
writeln('минимальный элемент = ',a[mini,minj]);
writeln('его индексы ',mini:4,' и ',minj:4);
writeln('конец задачи ');
readln;
END.

var A: array [1..10,1..10] of real;
i,j: integer;
begin
for i:=1 to 8 do begin
writeln;
for j:=1 to 5 do begin
A[i,j]:=random(-10,10);
write(A[i,j]:5);
end;
end;
end.
1) var A: array [1..10,1..10] of real;
i,j: integer;
begin
for i:=1 to 8 do begin
writeln;
for j:=1 to 5 do begin
A[i,j]:=random(-10,10);
A[i,j]:=A[i,j]*2;
write(A[i,j]:5);
end;
end;
end.
2)var A: array [1..10,1..10] of real;
i,j: integer; min,max,imin,imax:real;
begin
max:=1;
min:=1;
imin:=1;
imax:=1;
for i:=1 to 8 do begin
writeln;
for j:=1 to 5 do begin
A[i,j]:=random(-10,10);
write(A[i,j]:5);
if A[i,j]>max then begin
max:=A[i,j];
imax:=i;
end;
if A[i,j]<min then begin
min:=A[i,j];
imin:=i;
end;
end;
end;
write ('Max Element Massiva A=',max,' Ego nomer ', imax, ' Min Element Massiva A= ', min, ' Ego nomer ', imin);
3)???
Всегда пожалуйста