Всем доброго времени суток.
Проблема следующая, создаю текстовый файл со следующим содержимым:

Иванов Иван Иванович Пушкинская 1 2 000000
Петров Петр Петрович Ленина 2 3 000001

После пытаюсь переписать все это в типизированный файл и вывести на экран монитора и появляется ошибка "Ошибка ввода\вывода 106: неверный числовой формат при вводе". Вообще пишу программу по теме "записи", пытаюсь создать базу телефонного сравочника но как то не выходит. Подскажите что я неправильно делаю и как нужно делать правильно, заранее спасибо.

код:

Uses CRT;
Type
    Directory=record;
    Name:string[25];
    Address:record;
                   Street:string[15];
                   Home:integer;
                   Rented:integer;
    end;
    Nomber:integer;
end;
var
List:array[1..5] of directory;
a:directory;
f:text;
f1:file of directory;

Procedure Create_Tip_File;
begin
assign(f,'Phone Directory.txt');
reset(f);
assign(f1,'Tip File.int');
rewrite(f1);
while not seekeof(f) do
      begin read(f,a.name,a.address.street,a.address.home,a.address.rented,a.nomber);
            write(f1,a);
      end;
end;

Procedure Write_Tip_File;
begin reset(f1);
      while not eof(f1) do
            begin read(f1,a);
                  writeln(a.name,a.address.street,a.address.home,a.address.rented,a.nomber);
            end;
end;

BEGIN
Create_Tip_File;
Write_Tip_File;
close(f);close(f1);
END.