Сформировать одномерный массив из отрицательных элементов строк матрицы

unit main;
interface
 function menu:integer;
 function Load:
 function Save;
implementation
 var a:array[1..7,1..5] of integer; b:array[1..5*7] of integer;
 
 function menu;
 var i:integer;
 begin
  writeln('');
  readln(i);
  menu:=i;
  clrscr;
 end;
 
 function Load;
 var f:file;k,i,j:integer;
 begin
  Assign(f,'file'); reset(f); BlockRead(f,a,sizeof(a)); close(f); k:=1;
  for i:=1 to 7 do begin
   for i:=1 to 5 do begin
    if a[i,j]<0 then begin b[k]:=a[i,j]; write(b[k]:5); inc(k); end;
   end;
  end;
 end;
 
 function save;
 var f:file;i,j:integer;
 begin
  for i:=1 to 7 do begin
   for i:=1 to 5 do begin
    readln(a[i,j])
   end;
  end;
  Assign(f,'file'); rewrite(f); BlockWrite(f,a,sizeof(a)); close(f);
 end;

uses main;
var i:interger;
begin
 repeat
  i:=menu;
  case i of 1:Load; 2:Save; end;
 until i=3;
end.

function Menu(): Byte; //меню
procedure Load(const fName: String; var ar: TArray); //загрузка данных из файла
procedure Save(const fName: String; const ar: TArray); //сохранение данных в файл
procedure InputArray(var ar: TArray); //ручной ввод массива
procedure PrintArray(const ar: TArray); //вывод массива на экран
procedure GetSumNegInLine(const x: TArray; var y: TVector); //генерация одномерного массива сумм элементов строк бла-бла
procedure PrintVec(const ar: TVector); //вывод этого вектора на экран