Работа с массивами

uses crt;
const Str=4;
      Stl=3;
var a:array[1..Str,1..Stl] of integer;
    b:array[1..Str] of integer;
    i,j:integer;
 begin
   ClrScr;
  Writeln('Введите матрицу');
   for i:=1 to Str do
    begin
     Write(i, 'строка* ->');
      for j:=1 to Stl-1 do
       Read(a[i,j]);
       Readln(a[i,Stl]);
    end;
  Writeln('Матрица!');
   for i:=1 to Str do
    begin
    for j:=1 to Stl-1 do
     Write(a[i,j]:4);
     Writeln(a[i,Stl]:4);
 end;
  for j:=1 to Stl do
   for i:=1 to Str do
    b[j]:=b[j]+a[i,j];
   Writeln('----------------');
    for i:=1 to Stl do
   Write(b[i]:4);
  Readln;
 end.

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