Процедуры: найти наименьшие элементы и номера строк и столбцов, в которых они расположены

program Project1;
type vector = array[1..1000] of real;
matrix = array[1..100]of vector;
var
    a:matrix;
    i,n,m:integer;
   min:real;
   imin,jmin:integer;
 
procedure ShowMatrix(a:matrix;n,m:integer);
var i,j:integer;
begin
    for i:=1 to n do
  begin
  for j:=1 to m do
    write(a[i,j]:6:2);
    writeln;
 end;
 writeln;
end;
procedure InitMatrix(var a:matrix;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
  begin
  for j:=1 to m do
    a[i,j] := (random(100) - 50)/5;
 end;
end;
procedure MinElenemtPosition(const a:matrix;n,m:integer;var min:real;var imin,jmin:integer);
var 
 i,j:integer;
begin
 min := a[1,1];
   imin := 1;
   jmin := 1;
  for i:=1 to n do
  begin
  for j:=1 to m do
    if a[i,j] <= min then
    begin
    min := a[i,j];
     imin:= i;
     jmin:= j;
  end;
  end;
 
end;
 
begin
 
writeln('Vvedite razmer matritsi');
 write('n=');readln(n);
 write('m=');readln(m);
 InitMatrix(a,n,m);
 ShowMatrix(a,n,m);
 MinElenemtPosition(a,n,m,min,imin,jmin);
 writeln('Minim element of matrix min = ',min:8:2);
 writeln('Position of min element i =',imin,' j =',jmin);
  readln;
end.