Program Problem59_1;
Type
   Zap=Record  {Определение типа "запись"}
         Name: String[30];
         WorkPhone: String[10];
       End;
Var
   FV: File Of Zap;{Описание файловой переменной}
   K: Zap; {Определение переменной типа "запись" для ввода данных}
   n,i,prizn: Integer;

Begin
   Assign(FV,'SPR.HLP');    {Определение файловой переменной}
   Rewrite(FV);             {Открытие пустого файла}
   {****** Ввод данных ******}
   Write ('Количество записей: ');
   ReadLn(n);
   For i:=1 To n Do 
       Begin
           Write ('ФИО: ');
           ReadLn(K.Name);
           Write ('Рабочий телефон: ');
           ReadLn(K.WorkPhone);
           Write(FV,K); {Сохранение на диске}
       End;
       Seek(FV,0); {Перемещение указателя в начало файла}
       {******* Вывод нужной записи ***********}
       Repeat
         Write ('Номер записи для чтения: ');
         ReadLn(i);
         If (i-1<0) Or (i>FileSize(FV))
           Then
                WriteLn('Номер вне диапазона')
           Else
                Begin
                   Seek(FV,i-1);{Перемещение указателя на нужную запись}
                   WriteLn('Запись N',i);
                   Read(FV,K); {Чтение записи}
                   WriteLn ('ФИО: ',K.Name);
                   WriteLn ('Рабочий телефон: ',K.WorkPhone);
                End;
         WriteLn;
         WriteLn('Продолжить - 1, 0 - закончить работу.');
         ReadLn(prizn);
       Until(prizn=0);
End.