Отрицательные элементы файла записать в массив - Turbo Pascal

program p;
const
  n=10;
var
  f:file of real;
  b:array[1..5,1..3] of real;
  k,i,j:integer;
  a:real;
begin
  randomize;
  assign(f,'f.dat');
  writeln('File:');
  rewrite(f);
  for i:=1 to 50 do //
    begin
      a:=-n div 2 + random*n;
      write(f,a);
      write(a:8:2);
    end;
  writeln;
  close(f);
  reset(f);
  i:=1; j:=1;
  k:=0;
  writeln;
  while not eof(f) do
    begin
      read(f,a);
      if a<0 then
        begin
          inc(k);
          if k>15 then break;
          b[i,j]:=a;
//          write(b[i,j]:8:2);
          inc(j);
          if j>5 then
            begin
//              writeln;
              j:=1;
              inc(i);
              if i>3 then
                i:=1;
            end;
        end;
    end;
  Close(f);
  if k<=15 then
    writeln('Too small :)')
  else
    begin
    WriteLn('Array B:');
    for i:=1 to 3 do
      begin
        for j:=1 to 5 do
          Write(b[i,j]:8:2);
        WriteLn;
      end;
    end;
  readln;
end.