Определить номер максимального элемента в каждой строке и номер минимального элемента в каждом столбце матрицы

program prim2;
  uses crt;
  type mas=array[1..100,1..100] of integer;
  var a:mas;
      i,j: integer;
      max,min,i1,j1,i2,j2:integer;
begin
     clrscr;
     randomize;
     for i:=1 to 4 do
begin
     max:=-32768;
     min:=32768;
     for j:=1 to 8 do
begin
     a[i,j]:=random(-20,30);
     write(a[i,j]:4);
     if a[i,j]>max then
begin
     max:=a[i,j];i1 :=i; j1 :=j;
end;
end;
     write ('   Максимальный элемент в строке ',i1,' под номером>>',j1);
 
     writeln;
end;
     readln
 
end.

const m=4; n=8; W=6;
var
  a: array [1..m,1..n] of Integer;
  i, j, k: Integer;
begin
  Randomize;
  WriteLn('max#':W*(n+1));
  for i:=1 to m do begin
    k:=1;
    for j:=1 to n do begin
      a[i,j]:=-20+Random(51);
      Write(a[i,j]:W);
      if a[i,k]<a[i,j] then k:=j;
    end;
    WriteLn(k:W);
  end;
  WriteLn('min#');
  for j:=1 to n do begin
    k:=1; for i:=2 to m do if a[k,j]>a[i,j] then k:=i;
    Write(k:W);
  end; WriteLn;
  Write('Нажмите Enter...'); ReadLn;
end.