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

var
  x:array[1..4, 1..4] of integer;
  c, r: byte;
  k: integer;
 
procedure FindMin; { Использована процедура! }
var i, j: integer;
  begin
    k:=x[1, 1];
    for i:=1 to 4 do
      for j:=1 to 4 do
        if x[i, j] < k then begin k:=x[i, j]; c:=i; r:=j; end;
  end;
 
begin
  ...
  findMin;
  writeln('Минимальный элемент:  ', k);
  writeln('И его номер каждых столбца: ', c);
  writeln('И его номер каждых строка: ', r);
end.

var
  x:array[1..4, 1..4] of integer;
  c, r: byte;
  k: integer;
 
procedure FindMin; { Использована процедура! }
var i, j: integer;
  begin
    k:=x[1, 1];
    for i:=1 to 4 do
      for j:=1 to 4 do
        if x[i, j] < k then begin k:=x[i, j]; c:=i; r:=j; end;
  end;
 
begin
  randomize;
  for i:=1 to 4 do
    for j:=1 to 4 do
      x[i, j]:=random(100);
  findMin;
  writeln('Минимальный элемент:  ', k);
  writeln('И его номер каждых столбца: ', c);
  writeln('И его номер каждых строка: ', r);
end.

for i:=1 to n do begin
  for j:=1 to n do
    arr1[i, j]:=random(100)+1;
  write(arr1[i, j]:3);
end;

for i:=1 to n do begin
  for j:=1 to n do begin
    arr1[i, j]:=random(100)+1;
    write(arr1[i, j]:3);
  end;
  writeln;
end;