школьный уровень!Срочно! Найти сумму элементов каждой строки ...

Сергей

const n = 100;

m = 100;

var A: array[1..n,1..m] of integer;

max,i,j,s: integer;

begin

    randomize;

    for i := 1 to n do begin

        s := 0;

        for j := 1 to m do begin

            s := s + A[i,j];

        end;

        write('Summa elementov stroki ', i);

        writeln(' ravna ', s);

    end;

    max := 1;

    for i := 1 to m do begin

        if (A[2,i] > A[2,max]) then max := i;

    end;

    writeln('Max element 2 stroki raven', A[max]);

end.