Program L101;
Uses Crt;
Type
 rabotnik=record
  number:integer;
  FIO:string[15];
  godroj:integer;
  pol:char;
  cem:string[15];
  koldet:integer;
  oklad:integer;
  end;
 rab=file of rabotnik;

Var
 f:rab;

Procedure Create_file(var f:rab);
Var
 r1:rabotnik;
 number:integer;
Begin
 Rewrite(f);
 Writeln('Введите сведения о сотруднике');
 Writeln('Для выхода напечатайте 0 ');
 While true do
  Begin
   Write('Введите номер сотрудника ');
   Readln(r1.number);
   If r1.number=0 then Break;
   Write('Введите ФИО сотрудника ');
   Readln(r1.FIO);
   Write('Введите год рождения сотрудника ');
   Readln(r1.godroj);
   Write('Введите пол сотрудника ');
   Readln(r1.pol);
   Write('Введите семейное положение сотрудника ');
   Readln(r1.cem);
   Write('Введите количество детей сотрудника ');
   Readln(r1.koldet);
   Write('Введите оклад сотрудника ');
   Readln(r1.oklad);
   Write(f,r1);
  End;
 Close(f);
End;

Begin
 Clrscr;
 Assign(f,'C:\derevo.dat');
 Create_file(f);
End.