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

uses crt;
const
  nmax=20;
var
  a: array[1..10,1..10] of integer;
  n,m,kol,i,j,max,i_k,j_k: integer;
begin
  write('n,m -  ');
  readln(n,m);
  writeln('massiv - ');
 Kol:=0;
For i:=1 to 20 do
If (a[i,j] mod 2 <> 0) and (a[i,j] < 0) then Inc(Kol);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
    randomize;
      a[i,j]:=random(9)-3;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
 
  max:=a[1,1]; i_k:=1; j_k:=1;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]<max then
      begin
        max:=a[i,j];
        i_k:=i;
        j_k:=j;
      end;
  writeln('max element - [',i_k,',',j_k,'] ');
 end.

const
  nmax=20;
var
  a: array[1..10,1..10] of integer;
  n,m,i,j,max,i_k,j_k: integer;
begin
  write('n,m -  ');
  readln(n,m);
  writeln('massiv - ');
randomize;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(9)-3;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
 
  max:=a[1,1]; i_k:=1; j_k:=1;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]>max then
      begin
        max:=a[i,j];
        i_k:=i;
        j_k:=j;
      end;
  writeln('max element - [',i_k,',',j_k,'] ');
 end.

uses crt;
const
n=5;
m=5;
var
a:array[1..n,1..m] of integer;
b, c, i, j, max:integer;
begin
for i:= 1 to N do
 begin
 for j := 1 to M do
 begin
 a[i,j]:=random(13)-3;
 end;
 end;
 for i:=1 to n do
 for j:=1 to m do
 begin
 if a[i,j]>max then
 begin
 max:=a[i,j];
 b:=i;
 c:=j;
 end;
 end;
 for i:=1 to n do
 begin
 for j:=1 to m do
 write(a[i,j]:4);
 writeln;
 end;
 writeln ('max=',max:4);
 writeln ('nomer stroki ', b);
 writeln ('nomer stolbca', c);
 end.