Паскаль. Сумма столбцов мартицы.

[kommunist]

Добрый вечер уважаемые форумчане у меня возникла небольшая проблемка.
Задание: дана матрица 3x3 надо посчитать и вывести сумму цифр каждого столбца но он у меня считает правильно сумму первого столбца. Посмотрите пожалуйста.

  

program matr;
uses  crt;
const n = 3;
type  massiv = array [1..n,1..n] of integer;
var   a:massiv;
      i:integer;
      j:integer;
      nom:integer;
      s1,s2,s3:integer;
begin
      clrscr;
      randomize;

     for i:= 1 to n do
begin
     for j:= 1 to n do
begin
     a[i,j]:=random(10);
     write(a[i,j],' ');
end;
     writeln;
end;
     s1:=0;
 s2:=0;
 s3:=0;
   for j:= 1 to n do
begin
   for i:= 1 to n do


     inc(s1,a[i,1]);
     inc(s2,a[i,2]);
     inc(s3,a[i,3]);
     readln;
     writeln(s1,' ',s2,' ',s3);
     readln;

end;
end.

Заранее всем признателен. С уваженим Kommunist.

[Alex21]

const n = 3;
var   a:array[1..N,1..N]of real; // исходный массив
      s:array[1..N]of real;        // массив - суммы по столбцам
      i,j:integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
   randomize;

  for i:= 1 to n do
  begin
    for j:= 1 to n do
    begin
      a[i,j]:=random(10);
      write(a[i,j]:2:0,' ');
      s[j]:=s[j]+a[i,j];
    end;
    writeln;
  end;
   writeln;
   for i:= 1 to n do
   write(s[i]:2:0,' ');
   readln;
end.

[_Dmitry]

В цикле for i:= 1 to n do выполняется один оператор inc(s1,a[i,1]); возьми их в скобки begin end

[kommunist]

спасибо тебе огромное Alex21,правда выручил.
_Dmitry и тебе спасибо!