Обработка матрицы. Нужно отредактировать имеющеюся программу на Паскале

[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.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[BArt2000]

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

[VIK_aka_TOR]

держи

program lab7; 
type 
mas2=array[1..10,1..10] of integer; 
var 
a:mas2; 
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 proverka(a : mas2; m,n : integer);
var suma, index,i,j, ii, jj : integer;
f:text; 
begin
  for i:=1 to n do
   begin
   suma := 0;
    for j:=1 to m do
      begin
        suma := suma + a[i,j];
      end;
      if suma > 10 then 
        begin
          for ii := 1 to n do
            for jj := 1 to m do
            if a[ii,jj] < 0 then
              inc(index);
            assign(f,'otvet.txt'); 
            rewrite(f);
              writeln(f, 'отрицательных элементов в массиве ', index);
            close(f);
            exit;
        end;
  end;
  suma := 0;
 for i :=1 to n do
  for j := 1 to m do
    if a[i,j] < 5 then
      suma := suma + a[i,j];
              assign(f,'otvet.txt'); 
            rewrite(f);
              writeln(f, 'сумма элементов меньше 5 равняется ', suma);
            close(f);    
end; 
  
begin 
  vvod(a,n,m); 
  proverka(a,m,n);
end.

[BArt2000]

Спасибо Тебе БОЛЬШОЕ)))