Комбинированный тип (записи)

uses
  Crt;
 
Type
  DB = record
    Name : String;
    Ceh  : String;
    Zarp : Real;
  end;
 
 procedure Menu; forward;
 
Var
  DBFile : file of DB;
  Current : DB;
  Ch : Char;
 
Procedure Insert;
Begin
  clrscr;
{$I-}
  reset(DBFile);
  if IOResult <> 0 then
    Rewrite(DBFile);
  seek(DBFile, FileSize(DBFile));
{$I+}
 
  repeat
    WriteLn;
    Write('Введите фамилию ');
    ReadLn(Current.Name);
    Write('Введите название цеха ');
    ReadLn(Current.Ceh);
    Write('Введите зарплату ');
    ReadLn(Current.Zarp);
    Write(DBFile,Current);
    Write('Продолжить ?(y/n)');
  until ReadKey='n';
  WriteLn;
  close(DBFile);
  Menu;
End;
 
Procedure Work;
var
  temp, ceh : string;
  sum : real;
  i : word;
Begin
  clrscr;
 
{$I-}
  Reset(DBFile);
  if IOResult <> 0 then begin
    WriteLn('Файл не создан! (Нажмите любую клавишу)');
    repeat until keypressed;
    Menu;
  end;
{$I+}
 
  Write('Введите название цеха: ');
  ReadLn(ceh);
  clrscr;
  WriteLn('Цех:   ',Ceh);
  WriteLn('--------------------------------------------------T--------------┐');
  WriteLn('│Фамилия                                          │Зарплата      │');
  WriteLn('+-------------------------------------------------+--------------+');
  Sum:=0;
  i:=5;
 
  while not EOF(DBFile) do Begin
    Read(DBFile,Current);
    if Current.ceh=ceh then Begin
      sum:=sum+Current.Zarp;
      Write('│',Current.Name);
      str(Current.Zarp:6:2,Temp);
      GoToXY(66-Length(Temp),i);
      Write(Temp,'│');
      GoToXY(51,i);
      WriteLn('│');
      i:=i+1;
    End;
  End;
  close(DBfile);
 
  WriteLn('+-------------------------------------------------+--------------+');
  WriteLn('│Итого                                                           │');
  WriteLn('L-------------------------------------------------+---------------');
  GoToXY(51,i+1);
  Write('│');
  str(sum:6:2,Temp);
  GoToXY(66-Length(Temp),i+1);
  Write(Temp,'│');
  repeat until keypressed;
  Menu;
End;
 
Procedure Menu;
Label 1;
Begin
    clrscr;
1:
  WriteLn('1. Добавить в базу');
  WriteLn('2. Расчет ');
  Write('3. Выход  ');
  repeat until keypressed;
  ch:=Readkey;
  case ch of
    '1':Insert;
    '2': Work;
    '3': Halt;
    else begin
      Writeln('Неправильно выбран пункт');
      clrscr;
      goto 1
    end;
  end;
End;
 
Procedure Part3;
Begin
  assign(DBFile,'a:\kurs\DB.dat');
  Menu;
End;
 
label 11;
 
Begin
  clrscr;
11:
  WriteLn('1. Часть 1');
  WriteLn('2. Часть 2 ');
  WriteLn('3. Часть 3 ');
  Write('4. Выход  ');
  repeat until keypressed;
  ch := Readkey;
  case ch of
{    '1':Part1;}
{    '2': Part2;}
    '3': Part3;
    '4': Halt;
    else begin
      Writeln('Неправильно выбран пункт');
      clrscr;
      goto 11
    end;
  end;
end.