Создать файл по заданию

type
  rabochiy = record
    FIO: String[255];
    factory: String[255];
    ZP: string[10];
  end;
 
var
  F: file of rabochiy;
  c: integer;
 
procedure printmenu();
begin
  Writeln('');
  Writeln('Главное меню');
  Writeln('1 - Добавить рабочего');
  Writeln('2 - Вывести студентов группы');
  Writeln('3 - Вывод списка рабочих цеха');
  Writeln('4 - Очистка файла');
  Writeln('5 - Сохранить файл');
  Writeln('0 - Выход из программы');
end;
 
procedure addrabochiy(var f: file of rabochiy);
var
  z: rabochiy;
begin
  write('Введите ФИО : ');    
  readln(z.FIO); 
  write('Введите цех :  ');    
  readln(z.factory);
  write('Введите ЗП: ');
  readln(z.zp);
  write(f, z);
end;
 
procedure printra(ra: rabochiy);
begin
  Write('ФИО : ', ra.FIO);
  Writeln('');
  Write('Цех : ', ra.factory);
  Writeln('');
  Write('ЗП: ', ra.zp);
  Writeln('');
  Writeln('');
end;
 
procedure findbygroup(f: file of rabochiy);
var
  flag: byte;
  factory: string[255];
  ra: rabochiy;
begin
  flag := 0;
  WriteLn('Введите номер цеха');
  read(factory);
  reset(f);
  while not eof(f) do
  begin
    read(f, ra);
    if ra.factory = factory then
    begin
      flag := 1;
      printra(ra);
    end;
  end;
  if(flag = 0) then
    Writeln('По запросу "', factory, '" не найдено записей');
end;
 
begin
  assign(F, 'My file.dat');
  reset(F);
  repeat
    printmenu();
    readln(c);
    case c of 
      1: addrabochiy(F); 
      2: ; 
      3: findbygroup(F); 
      4: Rewrite(F); 
      5:             
        begin
          Close(F);
          assign(F, 'My file.dat');
          reset(F);
        end;
    end;
  until(c = 0); 
  close(f);
end.