Дан двумерный массив с индексами 1..10,1..10 найти сумму и произведение элементов 6-й строки числа вводятся с клавиатуры

Const
n=10;m=10;
var
a:array[1..n,1..m]of integer;
s,i,j:integer;
p:real;
     begin
         for i:=1 to n do
             for j:=1 to m do
                 readln(a[i,j]);
p:=1;
for j:=1 to m do
    begin
     s:=s+a[6,j];
      p:=p*a[6,j];
    end;
writeln;
for i:=1 to n do
    begin
        writeln;
           for j:=1 to m do
                write(a[i,j]:4);
      end;
writeln;
writeln('S: ',s,'   p:  ',p:4:0);
end.

Решение в приложении!!