Паскаль, очень нужна помощь.

program Tjfu1;
var i,j,n,m,s,p,k:integer; a:array[1..10,1..10]of integer;
begin
write('Введите размеры матрицы, разделив их пробелом: '); readln(m,n);
writeln('Введите значения элементов по строкам, разделяя элементы строки');
writeln(' пробелами и заканчивая ввод каждой строки нажатием Enter'); writeln;
for i:=1 to m do
begin write('Строка ',i:2,': '); for j:=1 to n do read(a[i,j]); readln end;
writeln; p:=maxint;
for i:=1 to m do begin for j:=1 to n do write(a[i,j]:8); writeln end; writeln;
for i:=1 to m do begin s:=0; for j:=1 to n do s:=s+a[i,j];
if abs(s)< p then begin p:=abs(s); k:=i end end;
writeln('k=',k); writeln('Для выхода нажмите Enter'); readln
end.

program Tjfu1;
var i,j,n,m,s,p,k:integer; a:array[1..10,1..10]of integer;
begin
write('Введите размеры матрицы, разделив их пробелом: '); readln(m,n);
writeln('Введите значения элементов по строкам, разделяя элементы строки');
writeln(' пробелами и заканчивая ввод каждой строки нажатием Enter'); writeln;
for i:=1 to m do
begin write('Строка ',i:2,': '); for j:=1 to n do read(a[i,j]); readln end;
writeln; p:=maxint;
for i:=1 to m do begin for j:=1 to n do write(a[i,j]:8); writeln end; writeln;
for i:=1 to m do begin s:=0; for j:=1 to n do s:=s+a[i,j];
if abs(s)< p then begin p:=abs(s); k:=i end end;
writeln('k=',k); writeln('Для выхода нажмите Enter'); readln
end.

Выкладываешь код, отмечаешь, где возникли проблемы.

То, что вы просите - это не помощь. Это: "Где тот лох, что за меня всё сделает? ". Помощь - это когда вы выкладываете задание, выкладываете код, который не работает или работает неправильно и просите знатоков указать вам на ошибку в коде. А так, как делаете вы... Похоже, что ошибка в коде есть, да. В коде ДНК...

сделаю ) за стриптиз по скайпу