Определить минимальный элемент в произвольно заданной матрице - Pascal ABC

program pr;
 
const
  n = 4;
  m = 6;
 
var
  a: array [1..100, 1..100] of integer;
  i, j, min, imin, jmin, temp: integer;
 
begin
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(21)-10;
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(' ', a[i, j]:3);
    writeln;
  end;
  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];
        imin := i;
        jmin := j;
      end;
  writeln('Минимальный элемент: ', min);
for i:=1 to n do
a[i,jmin]:=min;
for j:=1 to m do
a[imin,j]:=min;
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(' ', a[i, j]:3);
    writeln;
  end;
end.