Как исправить ошибку в подсчёте?

Const
    n=3;
    m=4;
Var
    a : array [1..n, 1..m] of integer;
    I, j ,k,P,S: integer;
Begin
randomize;
for i:=1 to n do
    begin
    for  j:=1 to m do
        begin
        a[ i, j ]:=random(20);
        write (a[i,j]:6);
        end;
    writeln;
    end  ;
        readln;
        write('Введите число К');
        readln(k);
        S:=0;
        P:=1;
        for i:=1 to n do
begin
S:=S+a[k,j];
P:=P*a[k,j];
end;
writeln;
writeln('otvet');
writeln('summa = ',S);
writeln('proizvedenie = ',P);
readln;
end.
 
End.

Const
 n=3;
 m=4;
 Var
 a : array [1..n, 1..m] of integer;
 I, j ,k,P,S: integer;
 Begin
 randomize;
 for i:=1 to n do
 begin
 for j:=1 to m do
 begin
 a[ i, j ]:=random(20);
 write (a[i,j]:6);
 end;
 writeln;
 end ;
 readln;
 write('Введите число К');
 readln(k);
 S:=0;
 P:=1;
 for j:=1 to m do//тут вы вместо m указали n 
 begin
 S:=S+a[k,j]; //при работе с массивом вы использовали переменную j,
 P:=P*a[k,j];// а в цикле вы использовали перемнную i.
 end;
 writeln;
 writeln('otvet');
 writeln('summa = ',S);
 writeln('proizvedenie = ',P);
 readln;
 end.