title matrija

[KateMM]

Помогите завершить правильно программу, пожалуйста..

[Mad_Cat]

{В матрице найти сумму номеров строк,
все элементы которых четные,
умножить элементы указанного столбца на это число..}
uses crt;
var Mat:array[1..100,1..100] of integer;
i,j,k,s,p:integer;
n,m:integer;
begin
Randomize;
repeat
write('n=');
readln(n);
until(n in [1..100]);
repeat
write('m=');
readln(m);
until(m in [1..100]);
s:=0;
Writeln('==========Matrix===========');
For i:=1 to n do
begin
k:=0;
For j:= 1 to m do
begin
MaT[i,j]:=random(100)-50;
write(Mat[i,j]:6);
if Mat[i,j] mod 2=0 then k:=k+1;
end;
if k=m then s:=s+i;
writeln;
end;
writeln('Summ # Row=',s);
write('N column =');
readln(P);
Writeln('======New Matrix===========');
For i:=1 to n do
begin
For j:= 1 to m do
begin
if j=p then MaT[i,j]:=mat[i,j]*s;
write(Mat[i,j]:6);
end;
writeln;
end;
end.