Процедура считывания из файла

[Black_butterfly]

Доброго времени суток!
Подправьте, пжл, процедуру
В общем нужно, чтобы происходило считывание данных из файла в виде таблицы.
Вот что у меня получилось, но работать не хочет

procedure vivod(var data1:zapis);
Var i:integer;
    data:zapis;
    begin
reset(ff);
writeln('=================================');
writeln('|   Имя   |  Фамилия  | Телефон | Дата рождения|');
writeln('=================================');
  while not eof(ff) do
   begin
    read (ff,data);
    write ('|',data.name:9);
    write ('|',data.fam:9);
    write ('|',data.nomer:8);
    write ('|',data.dr:13,'|');
    writeln;
    writeln ('-------------------------------');
   end;
close (ff);
end;