Типизированные файлы

[Kirom]

Я не знаю, как с типизированными файлами работать. В моём случае, в файле хранится Имя + пробел + Номер. Как мне оттуда достать эти Имя и номер и записать это в abonent[i].name и abonent[i].number?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type kniga = record
  number,name:string[11];
  end;
var abonent:array of kniga;
    f:file of kniga;
    i:integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  assignfile (f,'E:/Программирование/УКШ/book.bat');
  reset (f);
  setlength(abonent,filesize(f)+1);
  for i:=1 to filesize(f) do begin
                             read (f,abonent[i]);
                             /// Сюда поставить фрагмент, записываемый в abonent[i].name и в abonent[i].number, данные с файла
                             end;
  closefile(f);

end.

[Stilet]

В моём случае, в файле хранится Имя + пробел + Номер

Это не типизированный файл а текстовый.

program Project2;

{$APPTYPE CONSOLE}

uses classes,
  SysUtils;
type kniga = record
  number,name:string[11];
  end;
var abonent:array of kniga;
    i:integer; row:TStringList;

begin
  Row:=TStringList.Create;
  with TStringList.Create do begin
   LoadFromFile(f,'E:/Программирование/УКШ/book.bat');
   setlength(abonent,Count+1);
   for i:=Low(abonent) to High(Abonent) do begin
    Row.DelimitedText:=Strings[i];
    if Row.Count>0 then abonent[i].number:=Row[0];
    if Row.Count>1 then abonent[i].name:=Row[1];
   end;
   Free;
  end;
  Row.Free;
end.

[min@y™]

дай файл