Двумерный массив.Матрица

uses crt;
const n=5;
var m:array[1..n,1..n]of integer;
i,j,maxi,maxj:integer;
 
begin
 clrscr;
 randomize;
 for i:=1 to n do
 begin
  for j:=1 to n do
  begin
   m[i,j]:=random(40)-30;
   write(m[i,j]:3);
  end;
  writeln;
 end;
 
 maxi:=1;
 maxj:=1;
 
 for i:=1 to n do
 for j:=1 to i do if m[i,j]>m[maxi,maxj] then
 begin
  maxi:=i;
  maxj:=j;
 end;
 
 writeln('Максимальный элемент - m[',maxi,' ',maxj,']=',m[maxi,maxj]);
 readln;
end.

uses
  crt;
const
  n=4;
var
  a:array [1..n,1..n] of integer;
  i,j,max,tempi,tempj:integer;
  fl:boolean;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ìàêñèìóì íèæå ãëàâíîé äèàãîíàëè среди отрицательных}
  fl:=true;
  for i:=2 to n do
    for j:=1 to i-1 do
    begin
      if fl and (a[i,j]<0) then
      begin
        max:=a[i,j];
        tempi:=i;
        tempj:=j;
        fl:=false
      end;
      if (a[i,j]>max) and (a[i,j]<0) then
      begin
        max:=a[i,j];
        tempi:=i;
        tempj:=j
      end;
    end;
  writeln('Ìàêñèìàëüíûé ñðåäè îòðèöàòåëüíûõ ýòî ýëåìåíò a[',tempi,',',tempj,'] = ',max)
end.

uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
    i,j:integer;
    max,temi,temj:integer;
 begin
  Writeln('Введите массив...');
   for i:=1 to n do
    for j:=1 to n do
     begin
      Write('a[',i,',',j,']->');
      Readln(a[i,j]);
     end;
  Writeln('Введенная матрица...');
   for i:=1 to n do
   begin
     for j:=1 to n-1 do
       Write(a[i,j]:3);
       Writeln(a[i,n]:3);
    end;
    temi:=1;
    temj:=1;
  Writeln('--------------');
   max:=a[2,1];
    for i:=j+1 to n do
     for j:=1 to n-1 do
      if a[i,j]<0 then
       if a[i,j]>max then
       begin
       max:=a[i,j];
      temi:=i;
      temj:=j;
      end;
  Writeln('Максимум: ',max,' Индекс: a[',temi,',',temj,']');
  Readln;
 end.

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j:integer;
    max,temi,temj:integer;
 begin
  ClrScr;
  Writeln('Введите массив...');
   for i:=1 to n do
    for j:=1 to n do
     begin
      Write('a[',i,',',j,']->');
      Readln(a[i,j]);
     end;
  Writeln('Введенная матрица...');
   for i:=1 to n do
   begin
     for j:=1 to n-1 do
       Write(a[i,j]:3);
       Writeln(a[i,n]:3);
    end;
  Writeln('---------------');
  max:=a[2,1];
   for i:=2 to n do
    for j:=1 to i-1 do
    begin
      if (a[i,j]>max) and (a[i,j]<0) then
       begin
        max:=a[i,j];
        temi:=i;
        temj:=j
       end; end;
   Writeln('Максимум: ',max,' Индекс: a[',temi,',',temj,']');
  Readln;
 end.