Подсчитайте сумму элементов каждой строки массива целых чисел x[1: 3,1: 2](составить алгоритм и блок-схему)

var a: array [1..100,1..100] of integer;
n,m,s,i,j:integer;
Begin
    read(n,m);
    for i:= 1 to n do
        for j:= 1 to m do
            read(a[i,j]);

    for i:= 1 to n do begin
        s:=0;
        for j:= 1 to m do
            s:=s+a[i,j];
        writeln('S[',i,'] = ',s);
    end;
End.