Текстовые файлы в Делфи

[Asira]

Дан текстовый файл T1
Каждая строка файла имеет следующий формат:
Фамилия пол оклад
Создать новый текстовый файл, включающий все данные исходного с добавлением для женщин еще одной
графы - премия к 8 марта в размере 30% от оклада. Последняя строка файла должна содержать сумму всех премий.
Помогите найти ошибки

{$APPTYPE CONSOLE}

uses
  SysUtils;

var t1,t2:TextFile;
     fam:string[15];
     pol:char;
      pr:integer;
     su,okl:real;
begin
 assign(t1,'1.txt');
 assign(t2,'2.txt');
 reset(t1);
 rewrite(t2);
okl:=0;
 su:=0;
 while not eof(t1) do
  begin
   readln(t1,fam,pol,okl);
   if pol='ж' then
    begin  su:=su+0.3*okl;
    writeln(t2,fam,' ',pol,' ',okl,' ',su,' ',0.3*okl:0:0);
     writeln(t2,fam,okl);

     su:=su+pr;
end;
  end;
 if (su<>0) and (okl<>0) then
  write(t2,su/okl:0:3);
 closefile(t1);
 closefile(t2);
end.

[.Phoenix]

Мб стоит сначала файл заполнить?

assign(t1,'1.txt');
...
 reset(t1);
...
 while not eof(t1) do
  begin
   readln(t1,fam,pol,okl);

Ты читаешь пустой файл.

[Serge_Bliznykov]

а с чего Вы взяли, что файл пустой?!!!
я уверен, что файл 1.txt, из которого идёт чтение данных - НЕ ПУСТ!

Asira, проблема в том, что файл у Вас заполнен не так, как Вы его читаете!! на фамилию должно быть отведено СТРОГО 15 СИМВОЛОВ (не меньше, не больше!)
16йсимвол в строке должна быть буква пола.

при выводе суммы вы зачем её делите на оклад?!?!?!

а что у Вас в переменной pr и зачем Вы её к сумме приплюсовываете!?!?!?

строчку вывода неплохо бы задавать размер для поля оклад.

и зачем Вы дважды пишете в файл каждую фамилию?
рекомендую исправить код на:

    if pol = 'ж' then
    begin 
      su := su + 0.3 * okl;
      writeln(t2, fam, ' ', pol, ' ', okl: 8: 2, ' ', su: 8: 2, ' ', 0.3 * okl: 8: 2);
    end;
  end;
  if (su <> 0) then
    write(t2, su:8:3);

p.s. пример файла прилагается..

[Asira]

Спасибо огромное, я поняла что я дуб...!!!!!!!!!
Что бы я без Вас делала