Работа с файлами

   
   procedure recording ;
    const
    N = 6;
    price: array[1..10] of real = (500,1500,10000,2500,2000,1300,900,2300,500,400);
     
var
  dd,mm:byte; gg:integer; vv,sum:real; {dd-дата  ,mm- месяц, gg- год , vv- время, NumberServices-номер услуги,NumberSpe******ts-номер специалиста}
  i, NumberServices,NumberSpe******ts: integer;
  NameServices: array [1..10] of string;{имя услуги}
  NameSpe******ts: array[1..N] of string = ('Король', 'Черный','Ивлева','Акопян','Жуляев','Быкова'); {фамилия специалиста}
 
  fio: string;
    
 g,j:byte;
begin
  
{Присваивание элементам массива название услуг:}
 NameServices[1] := 'Стрижка';
  NameServices[2] := 'Ботокс для волос';
  NameServices[3] := 'Наращивание волос';
  NameServices[4] := 'Окращивание';
  NameServices[5] := 'Хим.завивка';
  NameServices[6] := 'Смывка';
  NameServices[7] := 'Тонирование';
  NameServices[8] := 'Долговременная укладка';
  NameServices[9] := 'Мужская стрижка';
  NameServices[10] := 'Уход за бородой';
  
  writeln('Выберите услугу (вводите №  услуги) :');
  writeln;
  
  
{Вывод списка каталога:}
  for i := 1 to 10 do
    writeln(i, '.', NameServices[i],' -',price[i]:5,' руб.');
  writeln('0. Завершить выбор услуг');
  
{В данном цикле пользователь вводит номера из каталога до тех пор, пока не введет число 0:}
  sum := 0;
    while True do begin
        write('услуга: '); readln(NumberServices);
        if NumberServices = 0 then break;
        writeln ('Выбор услуг завершен? Если нет, то введите № услуги, если да, введите 0');
        sum := sum + price[NumberServices] ;
    end;
    writeln;
    writeln('Сумма к оплате: ',sum:6:2);
  begin
   writeln;
   writeln('К кому хотели бы пойти? (вводите №  специалиста; )');
   writeln;
   {Присваивание элементам массива фамилии специалистов:}
  NameSpe******ts[1] := 'Король';
  NameSpe******ts[2] := 'Черный';
  NameSpe******ts[3] := 'Ивлева';
  NameSpe******ts[4] := 'Акопян';
  NameSpe******ts[5] := 'Жуляев';
  NameSpe******ts[6] := 'Быкова';
      for j:=1 to N do 
        writeln(j,') ', NameSpe******ts[j]);
       
    readln(NumberSpe******ts); writeln;
    case NumberSpe******ts of
  1: writeln('Ваш специалист:':2,NameSpe******ts[1]) ;
  2: writeln('Ваш специалист:':2,NameSpe******ts[2]) ;
  3: writeln('Ваш специалист:':2,NameSpe******ts[3]) ;
  4: writeln('Ваш специалист:':2,NameSpe******ts[4] ) ;
  5: writeln('Ваш специалист:':2,NameSpe******ts[5]) ;
  6: writeln('Ваш специалист:':2,NameSpe******ts[6]);
 
    end;    
end;
writeln;
begin
{циклы с постусловием для выбора даты и времени записи в парикмахерскую}
repeat
writeln ('Выберите удобную вам дату и время посещения нашего салона');
writeln;
write(' Введите число от 1 до 31 (Например "6"):'); readln(dd);
until dd in [1..31];
repeat
 write(' Введите месяц (1-12) : '); readln(mm);
until mm in [1..12];
repeat
write(' Введите год : '); readln(gg);
until (gg>0) and (gg<2030);
repeat
write(' Введите время : '); readln(vv);
until  (vv>8.10) and (vv<19.30) ;
end;
writeln;
writeln('Вы записаны на: ',dd,'.',mm,'.',gg,'  время:',vv:1:2);
writeln;
Writeln ('Введите ФИО '); {Сбор инф-ии о клиенте}
Readln (fio)
end;
  procedure textfile;
  var
  f:file;  [I]тут работа с файлами, хочу чтобы в файл в итоге вывелись услуги, которые выбрали, сумма их, специалиста, дд.мм.гг время [/I]
  begin 
    Assign(f,'zapis.txt');
    reset (f);
    readln(f,NumberServices); [B]Выдает ошибку:  Нельзя считывать данные этого типа[/B]
    readln(f,sum);
    readln(f,NumberSpe******ts);
    readln(f,dd,mm,gg,'  время:',vv);
    readln (f,fio);
    close(f);
  end;