[Alegun]

Я за него. Можно, но только если один массив из произвольного кол-ва это одна запись. т.е.

Код:

...
type mas = array [0..4] of real;

...

var
 f  : file of mas;
 buf: mas;
 i: integer;
begin
 for i:= 0 to High(buf) do
 buf[i]:= StrToFloat(Memo1.Lines[i]);


 AssignFile(f,'File Name');
  try
   Reset(f);
   Seek(f, 1); // первая запись
   Write(f,buf); // запись
   Read(f, buf); // чтение

 //    ...

  finally
   CloseFile(f);
  end;
end;