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

числа вводятся с клавиатуры

constn=10;m=10;vara: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.

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