проверить и написать результат

[xxSpiruSxx]

program matrica;
{ uses crt; }
var
stroki,stolb,i,j: integer;
sumstolb: array[1..100] of integer;
matr: array[1..100,1..100] of integer;


begin
{ clrscr; }
writeln('Введите количество строк');
readln(stroki);
writeln('Введите количество столбцов');
readln(stolb);

for i:=1 to stroki do
for j:=1 to stolb do
begin
writeln('Введите элемент матрицы');
readln(matr[i,j]);
sumstolb[j]:=sumstolb[j]+matr[i,j]
end;
writeln('Вы ввели следующие данные:');
for i:=1 to stroki do
begin
for j:=1 to stolb do
write(matr[i,j],',');
writeln;
end;
writeln('Сумма в столбцах:');
for j:=1 to stolb do
write(sumstolb[j],',');
readln;
end.
заранее блаодарю

[__STDC__]

Вроде все правильно..