Помогите с задачей, пожалуйста!

[Proffy69]

Такая вот задачка есть:
Создать файл, содержащий сведения о месячной заработной плате рабочих завода. Каждая запись содержит поля – фамилия рабочего, наименование цеха, размер заработной платы за месяц. Количество записей – произвольное. Вычислить общую сумму выплат за месяц по цеху Х, а также среднемесячный заработок рабочего этого цеха. Напечатать для бухгалтерии ведомость для начисления заработной платы рабочим этого цеха.

Попытался решить сам, и получил следующее:

Type
    DB=record
       Name : String;
       Ceh  : String;
       Zarp : Real;
    end;
Var
   DBFile:file of DB;
   Current :DB;

Procedure Insert;
Begin
     clrscr;
     reset(DBFile);
     seek(DBFile,FileSize(DBFile));

     repeat
           WriteLn;
           Write('Введите фамилию ');
           ReadLn(Current.Name);
           Write('Введите название цеха ');
           ReadLn(Current.Ceh);
           Write('Введите зарплату ');
           ReadLn(Current.Zarp);
           Write(DBFile,Current);
           Write('Продолжить ?(д/н)');
     until ReadKey='н';
     WriteLn;
     close(DBFile);
     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 Work;
var
   temp,ceh : string;
   sum : real;
Begin
     clrscr;
     Reset(DBFile);
     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;
     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;close(DBfile);
End;
Procedure Part3;
Begin
     assign(DBFile,'a:\kurs\DB.dat');Menu;
End;
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.

Но все равно ошибки есть, как мне кажется. Не могли бы Вы помочь мне и подправить программу? Желательно с небольшими комментариями действий