READTEL.PAS

uses crt;
type
{Описание формата файла Телефонного справочника:
Запись формата
        Num:LongInt; - Номер порядковый (Глючит и не используется на практике)
        Num2:LongInt; - Номер дополнительный (Неизвестно зачем нужен)
        Date1:LongInt; - Дата рождения (Глючит после 2000 г.)
        FIO:String[35]; - ФИО
        Sity:String[16]; - Город
        Kod:String[13];  - Код города
        Dom:String[13];  - Домашний телефон
        Rab:String[13];  - Рабочий телефон
        Addr1:String[67]; - Адрес
        X1:word;          - Зарезервировано
        Addr2:String[67]; - Продолжение адреса
        X2:word;          - Зарезервировано
        Dop1:String[67];  - Дополнительные сведения
        X3:word;          - Зарезервировано
        Dop2:String[67];  - Продолжение дополнительных сведений
        X4:word;          - Зарезервировано
        X5:word;          - Зарезервировано                }


Rectype = Record
        Num:LongInt;
        Num2:LongInt;
        Date1:LongInt;
        FIO:String[35]; {35}
        Sity:String[16];{16}
        Kod:String[13]; {13}
        Dom:String[13];
        Rab:String[13];
        Addr1:String[67]; {67}
        X1:word;
        Addr2:String[67];
        X2:word;
        Dop1:String[67];
        X3:word;
        Dop2:String[67];
        X4:word;
        X5:word;

end;
Var X:Rectype; F:File of Rectype; I:byte;
    FOut:Text; S:String;
Begin
clrscr;
Assign (F,'_buf.dat');
Reset (F);
Assign (FOut,'Readtel.txt');
ReWrite (FOut);
While not eof (F) do begin
      Read(F,X);
      S:='';
      S:=X.FIO+'|'+X.Sity+'|'+X.Kod+'|'+X.Dom+'|'+X.Rab+'|'+X.Addr1+'|'+X.Addr2+X.Dop1+'|'+X.Dop2+'|';
      Writeln(X.Num,' ',X.Num2,' ',X.Date1);
      Writeln(FOut,S);
end;
Close(F);
Close(FOut);
End.