Помогите решить 2-ую задачу по программированию в языке Pascal

var i, j, n, x, maxi: integer;
a: array [1..10, 1..10] of integer;
begin
n:=10;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random (1000);
write (a[i,j]:4);
if (i=1) and (j=1) then
begin
maxi:=a[i,j];
x:=1;
end;
if a[i,j] > maxi then
begin
maxi:=a[i,j];
x:=i;
end;
end;
writeln;
end;
writeln ('наибольший элемент = ', maxi,' в строке = ', x);
end.

что именно не получается? Или просто лень думать самому?

незачет

maxEl := mas[1,1];
ns := 1;

for i:=1 to10 do
begin
for j:=1 to 10 do
begin
if mas[i,j] > maxEl then
begin
maxEl := mas[i,j];
ns := i;
end;
end;
end;

writeln(maxEl, ' на ', st, ' строке ');

примени эту прогу, не получится - пиши
{ Составьте программу вычисления минимального
элемента и его индексов матрицы 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.