Нужно отредактировать имеющеюся программу, Нужно отредактировать имеющеюся программу Опции

[Bart2000]

Вообще нужно доделать программу. У меня только сделанно ввод и вывод в текстовый файл. Помогите пожалуйста очень надо.
УСЛОВИЕ:
Матрица, размером n*m, вводиться из текстового файла. Если сумма элементов каждого столбца матрицы меньше 10, то найти сумму всех элементов матрицы, меньше 5, в противно случаи найти количество отрицательный элементов матрицы.Исходную матрицу и результат вывести в текстовый файл.
Спасибо большое заранее тем кто поможет)))

program lab7;
type
mas1=array[1..10] of integer;
mas2=array[1..10,1..10] of integer;
mas3=array[1..10] of integer;
 
var
a:mas2;
B:MAS1;
c:mas3;
n,m:integer;
 
Procedure vvod(var a:mas2; var n,m:integer);
 var i,j:integer;
     f:text;
 begin
  assign(f,'matrica.txt');
  reset(f);
  read(f,n,m);
  for i:=1 to n do
   begin
     for j:=1 to m do
      read(f,a[i,j]);
  readln(f);
 end;
 close(f);
 end;
 
procedure vivod(a:mas2; n:integer);
 var i,j:integer;
     f:text;
 begin
  assign(f,'otvet.txt');
  rewrite(f);
  begin
  for i:=1 to n do
   begin
     for j:=1 to m do
   write(f,' ',a[i,j]);
   writeln;
     end;
     
  close(f);
 end;
 end;
 
 
 
 
begin
  vvod(a,n,m);
  vivod(a,n);
end.

[Bart2000]

Помогите пожалуйста