Pascal: 2мерные массивы, файлы

[bycahf]

Привет всем! Помогите, пожалуйста, решением задач - всего 2 осталось сдать. Заранее благодарен всем, кто откликнется!

1. Дана целочисленная квадратная матрица, определить cумму элементов в тех строках, которые не содержат отрицательных элементов (оформить в виде функции);
2. Создайте текстовый файл р. Составьте программу, исключающую пробелы, стоящие в концах его строк и помещающую результат в файл g.

[Arkuz]

1.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 3;

type
  y = array[1..n,1..n]of integer;

procedure fsum(var x:y);
var
  i,j,sum,f:integer;
begin
   for i:=1 to n do
     begin
       sum:=0;
       f:=0;
       for j:=1 to n do if x[i,j]<0 then inc(f);
       if f=0 then
         for j:=1 to n do
           begin
             sum:=sum+x[i,j];
           end;
       if sum=0 then else
         writeln('Summa polojitelnih el-tov ',i,' stroki = ',sum);
     end;
end;

var
  mas:y;
  i,j:integer;
begin
  {zapolnenie massiva  }
  for i:=1 to n do
    for j:=1 to n do
      begin
        write('mas[',i,',',j,'] = ');
        readln(mas[i,j]);
      end;
  { vivod na ekran  }
  for i:=1 to n do
    for j:=1 to n do
      begin
        write(mas[i,j],' ');
        if j=n then writeln;
      end;
  fsum(mas);
  readln;
end.

[bycahf]

спасибо большое за помощь! а вторую задачку никто не знает как решить?

[bycahf]

помогите, пожалуйста, завтра сдавать уже надо!((((