Дана матрица А размером (n x m) Найти номера строк и столбцов в которых находятся наибольший и наименьший элемент матрицы — Pascal(Паскаль)

program z1;
uses crt;
var a:array[1..50,1..50] of integer;
i,j,n,m,k,l,h,t,y,min,max:integer;
begin
writeln('Введите кол-во строк');
readln(n);
writeln('Введите кол-во столбцов');
Readln(m);
for i:=1 to n do begin
For j:=1 to m do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
writeln('Исходный массив:');
for i:=1 to n do begin
For j:=1 to m do
Write(a[i,j]:5);
 writeln; end;
min:=a[1,1];
for i:=1 to n do begin
For j:=1 to m do begin
if a[i,j]<min then begin min:=a[i,j];
l:=i; h:=j;             end;
end;
end;
max:=a[1,1];
for i:=1 to n do begin
For j:=1to m do begin
if a[i,j]>max then begin max:=a[i,j];
t:=i; y:=j;              end;
end;
end;
writeln('Min - a[',l,',',h,']');
writeln('Max - a[',t,',',y,']');
readln;
end.