файлы, записи., помогите пожалуйста найти ошибку Опции

[Евгения]

Помогите пожалуйста найти ошибку в курсовике..
Проблема, после ввода данных в таблицу отображаются только последняя введенная фамилия. После сохранения в файл, сохраняется тоже только последняя запись.
Задание:
1 Оформить ввод исходных данных в файл данных. Отсортировать данные по суммарному кол-ву часов в порядке возрастания. Результаты напечатать в файл в след. виде:

Код

____________________________________________________________________
ФИО               Лекции                Пpактики             Всего
             ________________________________________              
                 час          %         час       %          часов
____________________________________________________________________
fam             kol1         pr1        kol2      pr2         kol
____________________________________________________________________
В среднем                    -                     -           -
____________________________________________________________________

 KURSOVIK.rar ( 3.14 килобайт ) Кол-во скачиваний: 408


Сообщение отредактировано: Altair - 26.11.2005 12:22

[Altair]

первый глюк попробуй исправить так

Writeln(TXT);
      Writeln(TXT, translate(' ‚ бpҐ¤­Ґ¬:'),
    kol1_Average:5:1,kol2_average:26:1);

Это надо изменить. убери первую строку writeln(txt);
или замени ее на writeln(txt,' ');
второй оператор тоже какой-то навороченный, у меня нет сейчас компилера, не могу проверить, но мне кажется это из-за него теряется значение, разбей его на несколько вот так:

write(txt,translate(' ‚ бpҐ¤­Ґ¬:')); 

и так далее, т.е. на более простые.
А какие проблеммы с ограничением?