Дозапись данных в файл

[DarkDeidara]

Дело обстоит так. Написал уже программу почти, осталось пару недочётов убрать и что главное нужно Рассчитанные данные дозаписать в созданный ранее другой(вспомогательной) программой файл. Исходный код конечно же имеется вспомогательная программа полностью рабочая мне нужна помощь только с дозаписью в основной программе.
Вот основная программа

program okladnik;
uses crt;
type sprav=record
     fio:string[30];
     tn:word;
     nc:integer;
     ok_p:string[12];
     po_s:string[12];
     kod_kat:word;
     oklad:real;
     kols:word;
     time:integer;
     kvo:array[1..10] of word;
     snv:array[1..10] of real;
     kwy:array[1..10] of word;
     cup:array[1..10] of real;
     end;
var tn,nb,i,j,x,l,p,otrch:integer;
    snar,ozpltar,knar:real;
    e:file of sprav;
    st:sprav;
    a:array[1..100] of integer;
    b:array[1..100] of integer;
    zpltar:array[1..100] of real;
    zplnar:array[1..100] of real;
begin
     clrscr;
     assign(e,'C:\Deidara\sprav.dei');
     writeln('Введите номер бригады:');
     readln(nb);
     writeln('Введите сумму наряда:');
     readln(snar);
     writeln('Введите табельные номера членов бригады:');
     i:=1;
     j:=1;
     p:=0;
     ozpltar:=0;
     repeat
           begin
                writeln('Вводить ниже:');
                readln(a[i]);
                reset(e);
                while not eof(e) do
                begin
                     read(e,st);
                     if st.tn=a[i] then
                     begin
                          p:=p+1;
                          if p=0 then
                          writeln('Такого табельного номера нет...')
                          else
                          if st.ok_p='окладник'then

                               writeln('Рабочий ',st.fio,' ',st.ok_p)

                          else
                               if st.ok_p='повременщик' then
                          begin
                               writeln('Рабочий ',st.fio,' включен в бриагду.');
                               writeln('Тариф: ',st.oklad:6:2);
                               writeln('Введите кол-во отработанных часов:');
                               readln(otrch);
                               zpltar[i]:=st.oklad*otrch;
                               ozpltar:=ozpltar+zpltar[i];
                               b[j]:=i;
                               i:=i+1;
                          end;
                     end;
                end;
                writeln('Продолжить? 1-да/2-нет.');
                readln(x);
                close(e);
           end;
           until x=2;
           l:=i;
 {   for i:=1 to l-1 do
     writeln(zpltar[i]:6:2);  }
     writeln('Общая сумма заработной платы по тарифу по всем членам бригады: ',ozpltar:6:2,' рублей.');
     knar:=snar/ozpltar;
     writeln('Сумма наряда в расчёте на 1 рубль: ',knar:10:6,' рублей.');
     i:=1;
     for i:=1 to l-1 do
     zplnar[i]:=knar*zpltar[i];
     reset(e);
     while not eof(e) do
     begin
          read(e,st);
          if st.tn=a[i] then
          begin
               st.kvo[i]:=1;
               st.snv[i]:=zplnar[i];
          end;
     i:=i+1;
     seek(e,b[j]);
     write(e,st);
     end;
     close(e);
readln;
end.

и вот её условие (мне нужна помощь с 7 пунктом) полный текст задачи в прикреплённых файлах
Программа доложна выполнять расчёт суммы оплаты членам бригады, исходя из общей суммы наряда, профессионального разряда и времени, отработанного работником по данному наряду.
Алгоритм рассчётов:
1.Ввести с клавиатуры № бригады и сумму наряда(это я сделал);
2.Ввести с клавиатуры табельные номера работников - членов бригады - запомнить их в массиве(тоже ввёл и занёс);
3.Для каждого введённого табельного номера:
...
6.Высчитать суммы заработной платы по наряду для каждого работника из бригады пропорционально суммам их заработной платы по тарифу, т.е. по формуле:
ZPLNAR=KNAR*ZPLTAR, где
ZPLTNAR - заработная плата по наряду члена бригады
KNAR - сумма наряда в расчёте на 1 рубль общей заработной платы по тарифу
ZPLTAR - сумма заработной платы по тарифу члена бригады.
7.Рассчитанные суммы заработной платы по наряду поместить в записи по работникам - членам бригады - с кодом вида оплат: 1-сдельная оплата.
Кроме того, до выполнения перечисленные основных действий, необходимо отдельной программой или в дополнительном режиме создать и ввести данные в файлы "SPRAV" и "TN" и "SVO".

Собственно вспомогательная программа и создаёт эти дополнительные файлы

Кто чем может посоветуйте)

Так же исходники прикрепил
если не понятно условие или то что мне нужно тоже спрашивайте)

[Swarog]

если не ошибаюсь то дозапись производится примерно следующим образом

assign(e,имя_файла);
reset(e);
SeekEof(e);
writeln('все что здесь будет записано добавиться в конец');
closefile(e);

[Alex11223]

если не ошибаюсь то дозапись производится примерно следующим образом

Append(f, text) же.

[Serge_Bliznykov]

Swarog,
э нет. Так нельзя!

потому как SeekEof - это функция, которая "Returns the end-of-file status of a file.
" возвращает TRUE - если указатель файла находится в конце.
Да и применима она только к тестовым файлам...

DarkDeidara, ткните пальцем, где Вы хотите дописывать данные.
а вообще.
если файл, куда надо дописать данные - текстовый - тогда открывайте его через Append(f) и пишите.

если же файл, куда надо дописать данные - типизированный, тогда смотрите Ваш же код - как Вы дописываете рабочих в таблицу (процедура add_sprav)!
примерно так это делается:

   reset(e);
   seek(e, filesize(e));

   заполнение записи st ....

   // дозапись данных
   write(e, st);

[DarkDeidara]

итак тыкаю пальцем))
"7.Рассчитанные суммы заработной платы по наряду поместить в записи по работникам - членам бригады - с кодом вида оплат: 1-сдельная оплата."
Нужно вот сюда

Вставить вот эти рассчёты

Чтобы врезультате получилось вот так


Эта таблица выдаётся в вспомогательной программе, а дозаписывать в неё вычисления нужно в основной.
И сделать это для каждого члена по которому проводились расчёты(в данном случае для 2 и 4).

[DarkDeidara]

и дозапись нужна не в конец файла, а в нужную запись.

[Serge_Bliznykov]

простите, Ваших данных у меня нет, куда и что дописывать - я не понял...

и дозапись нужна не в конец файла, а в нужную запись.

так:

  reset(e); {открыли файл на чтение/запись}

  seek(e, НомерНужнойЗаписи); {стали на нужную запись в файле}
  Read(e, st); { прочитали в тип то, что есть в записи сейчас }

  { изменили данные в записи (в памяти) }
  st.Поле1 := 100;
  st.поле2 := 3000;

  seek(e, НомерНужнойЗаписи); {стали на нужную запись в файле}
  write(e, st);  { сохранили их в файл }

примерно так...