Найти минимальный элемент массива и его номер

var A:array[1..20]of real;
i,n:integer;
max,maxI:real;
begin
write('Введите размерность массива:');
read(n);
writeln('Введите ',n,' чисел:');
max:=0;
for i:=1 to n do
  begin
    read(a[i]);
    if a[i]>max then
      begin
        max:=a[i];
        maxI:=i;
      end;
  end;
writeln('max=',max,' с индексом=',maxI);
writeln('Выведем массив на экран:');
for i:=1 to n do write(a[i]:5:2);
end.

var a:array [1..100,1..100] of real;
i,j,n,m:integer;
min:real;
begin
writeln('ââåäòå ðàçìåðíîñòü');
readln (n,m);
writeln('ââåäèòå ìàòðö');
for i:=1 to n do
for j:=1 to m do
readln (a[i,j]);
min:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
begin
min:=a[i,j];
end;
for i:=1 to n do
begin
for j:=1 to m do
write (' ',a[i,j]);
writeln;
end;
writeln ('',min);
end.

uses crt;
var a:array [1..100,1..100] of real;
i,j,n,m,imin,jmin:integer;
 
begin
writeln('введте размерность');
readln (n,m);
writeln('введите матрицу');
imin:=1; jmin:=1;
for i:=1 to n do
    for j:=1 to m do
        readln (a[i,j]);
writeln('Дана матрица');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        write (' ',a[i,j]);
        if a[i,j]<a[imin,jmin] then
           begin
           imin:=i;
           jmin:=j;
           end;
        end;
    writeln;
    end;
writeln ('Минимальный элемент = ',a[imin,jmin],' в строке ',imin,' в столбце ',jmin);
end.