Создание процедуры целочисленной матрицы на языке паскаль.

[Darya]

Дана целочисленная матрица. Создать процедуру, вычисляющую сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент. Результат работы процедуры записать в текстовый файл.

Будьте так любезны, помогите справиться с этой задачей.

[Levsha100]

Наработки есть??

const
 m=5;
 n=5;
--------------------
A:Array[1..m,1..n]of integer;
--------------------
procedure Matrix;
var
i,j:integer; sum:longint;
yes:boolean;
begin
  for j:=1 to n do
  begin
   yes:=false;
   sum:=0;
   for i:=1 to m do 
   begin
     sum:=sum+A[i,j];
     if A[i,j]<0 then
       yes:=true;
   end;
   if yes then WriteLn(myFile,sum);
   end;
end;

[Darya]

я только знаю как найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент (в виде функции)...
var a:array[1..10,1..10] of integer;
b,c:array[1..10] of integer;
i,j:byte;
begin
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a[i,j]:=90-random(100);
b[i]:=b[i]+a[i,j];
if a[i,j]<0 then c[i]:=1;
write(a[i,j]:5);
end;
writeln;
end;
writeln;
for j:=1 to 10 do begin
if c[j]=1 then write(j,' stroka =',b[j]:5);
end;
readln;
end.

[Darya]

скажите пожалуйста, почему она не работает??? ничего не понимаю..(((
program DA10;
var a:array[1..3,1..3] of integer;
i,j:integer;
procedure sum;
var s:integer; t:text;
begin {proc}
for i:=1 to 3 do
begin
assign(t,'.txt');
rewrite(t);
b:=false;
for j:=1 to 3 do if a[i,j]<0 then b:=true;
write(t,'stroka ',i); s:=0;
if b then begin
for j:=1 to 3 do s:=s+a[i,j];
writeln(t,' ',s);
end;
else writeln(t,'net otricatelnyh elementov')
end;
close(t)
end; {proc}

begin {program}
writeln ('vvedite massiv');
for i:=1 to 3 do readln(a[i,j]);
sum;
readln;
end. {program}