Файл из одномерных целочисленных массивов

uses crt;
const max=20;
type mas=array[1..max] of integer;
     matr=array[1..max] of mas;
     fail=file of mas;
var a:mas;
    f:fail;
    n,m,i,j,k:integer;
begin
clrscr;
randomize;
assign(f,'file');
rewrite(f);
repeat
write('Количество массивов от 1 до ',max,' n=');
readln(n);
until n in [1..max];
repeat
write('Размер массивов от 1 до ',max,' m=');
readln(m);
until m in [1..max];
for i:=1 to n do
 begin
  for j:=1 to m do
  a[j]:=-20+random(50);
  write(f,a);
 end;
seek(f,0);
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  k:=0;
  for j:=1 to m do
   begin
    write(a[j]:4);
    if a[j]<0 then k:=k+1;
   end;
  writeln;
  writeln('Количество отрицательных=',k)
 end;
close(f);
readln
end.

const
  LIM=50; W=4; n=10;
type
  tmas = array [1..n] of integer;
var
  f: file of tmas;
  a: tmas;
  i, j, m, c: integer;
begin
  Randomize;
  Write('Количество массивов: '); Readln(m);
  Assign(f,'m.bin'); Rewrite(f);
  for i:=1 to m do begin
    c:=0;
    for j:=1 to n do begin
      a[j]:=Random(LIM*2)-LIM; Write(a[j]:W);
      if a[j]<0 then inc(c);
    end; WriteLn('|',c:W);
    Write(f,a);
  end;
  Close(f);
end.

const
  LIM=50; W=4; n=10;
type
  tmas = array [1..n] of integer;
var
  f: file of tmas;
  a: tmas;
  i, j, m, c: integer;
begin
  Randomize;
  Write('Количество массивов: '); Readln(m);
  Assign(f,'m.bin'); Rewrite(f);
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[j]:=Random(LIM*2)-LIM; Write(a[j]:W);
    end; WriteLn;
    Write(f,a);
  end;
  Seek(f,0); i:=1;
  while not eof(f) do begin
    Read(f,a); c:=0;
    for j:=1 to n do if a[j]<0 then inc(c);
    Write(' ',i,':',c); inc(i);
  end;
  Close(f);
end.

const
  LIM=50; W=4; nn=20;
type
  tmas = array [1..nn] of integer;
var
  f: file;
  a: tmas;
  i, j, m, n, c: integer;
begin
  Randomize;
  repeat
    Write('Количество массивов и элементов в массиве (1..',nn,'): ');
    Readln(m,n);
  until (m>0) and (n>0) and (n<=nn);
  Assign(f,'m.bin'); Rewrite(f,sizeof(integer)*n);
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[j]:=Random(LIM*2)-LIM; Write(a[j]:W);
    end; WriteLn;
    BlockWrite(f,a,1);
  end;
  Seek(f,0); i:=1;
  while not eof(f) do begin
    BlockRead(f,a,1); c:=0;
    for j:=1 to n do if a[j]<0 then inc(c);
    Write(' ',i,':',c); inc(i);
  end;
  Close(f);
end.