паскаль - Определите сумму каждой строки матрицы

[Alebastr]

Дана матрица целых чисел размером 4x3. Определите сумму каждой строки этой матрицы. Результат вывести на экран монитора.

Помогите плз!

[Serge_Bliznykov]

for i:=1 to 4 do begin
   sum := 0;
   for j:=1 to 3 do sum := sum + a[i,j];
   WriteLn('Строка ',i,' сумма равна ', sum);
end;

[Necare]

var
i,j,k,n,summa : integer;
a: array [1..4,1..3] of integer;
sum: array [1..4] of integer;
begin
writeln('Enter the matrix`s elements');
k:=0;
for i:=1 to 4 do
for j:=1 to 3 do
begin
write('a[',i,'][',j,']=');
readln(a[i,j]);
end;
writeln(a[i,j]);
for i:=1 to 4 do
begin
summa:=0;
writeln('');
for j:=1 to 3 do
summa:=summa+a[i,j];
sum[i]:=summa;
k:=k+1;
end;
writeln('Calculated summ');
for i:=1 to 4 do
writeln(sum[i]);
end.