Матрица [Pascal]

uses
  crt;
const
  str=4;{êîëè÷åñòâî ñòðîê}
  sto=4;{êîëè÷åñòâî ñòîëáöîâ}
var
  a:array [1..str,1..sto] of integer;
  i,j,sum:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ñóììó ýëåìåíòîâ}
  for i:=1 to str do
  begin
    for j:=1 to sto do
      inc(sum,a[i,j]);
    writeln('Ñóììà ',i,' ñòðîêè: ',sum);
    sum:=0
  end;
end.

uses
  crt;
const
  str=4;{êîëè÷åñòâî ñòðîê}
  sto=4;{êîëè÷åñòâî ñòîëáöîâ}
var
  a:array [1..str,1..sto] of integer;
  i,j,max,tempi,tempj:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ìàêñèìóì âûøå ãëàâíîé äèàãîíàëè}
  max:=a[1,2];
  tempi:=1;
  tempj:=2;
  for i:=1 to str-1 do
    for j:=i+1 to sto do
      if a[i,j]>max then
      begin
        max:=a[i,j];
        tempi:=i;
        tempj:=j
      end;
  writeln('Ìàêñèìóì ýòî ýëåìåíò a[',tempi,',',tempj,'] = ',max)
end.