массив!

[Jodu]

До завтра решить надо....помогите пожалуйста.заранее спасибо.

Дана матрица А [6,5] масс Q вагонов в P составах.
1)Вывести элементы по строкам
2)Вычислить сумму элементов каждой строки <10 тонн.
3)Определить строку с максимальной суммой элементов.
4)Из элементов матрицы >=10 тонн сформулировать массив B. Записать на месте существующих элементов в матрице A.

[AlDelta]

В чём проблема-то?

[Jodu]

тут первая часть правильна.как мне выводить сумму каждой строки меньше 10 тонн( у меня получается сумма <10 всей матрицы,а не каждой строки в отдельности)

program matrica;
uses crt;
type matrix = array[1..6,1..5] of integer;
var a:matrix;
     i:integer;
     j:integer;
     S:integer;
begin
    randomize;
    clrscr;
    for i:= 1 to 6 do
begin
    for j:= 1 to 5 do
begin
    a[i,j] :=random(100);
    write(a[i,j]:5,' ');
end;
writeln;
end;
readln;
S:=0;
for i:=1 to 6 do
begin
for j:=1 to 5 do
begin
if  A[i,j]<10 then
S:=S+A[i,j];
end; writeln('cymma<10 =  ',i,'ctpoku',s:2); end;readln;  end.