школьный уровень!Срочно!

Найти сумму элементов каждой строки массива A[1..n,1..m] и максимальный элемент 2-ой строки

 

 

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.

Program t1;Var a: array[1..n,1..m] of integer;i,n,m,max,s: integer;BeginRead (n,m);S:=0;Max:=0;For i:=1 to n doBeginS:=s+a[i];End;For i:=1 to m doBeginIf (max>a[i]) thenMax:=maxElse max:=a[i];End;Write (s);Write (max);End.