Создание дневника с оценками Опции

[microbe]

Ребята! Хочу создать дневник с оценками такого вида.

Код

Список оценок:                                                   Средний балл:
                                                            
-------------------------------------------------------------------  --------
Белорусская литература            |
-------------------------------------------------------------------  --------
Русская литература                   |
-------------------------------------------------------------------  --------
Основы алгоритмизации и прогр.|
-------------------------------------------------------------------  --------
Операционные системы              |
-------------------------------------------------------------------  --------
Прикладное ПО                          |
-------------------------------------------------------------------  --------
Экономическая теория               |
-------------------------------------------------------------------  --------
Философия                                 |
-------------------------------------------------------------------  --------
Высшая математика                    |
-------------------------------------------------------------------  --------
Физкультура                              |
-------------------------------------------------------------------  --------
Инженерная графика                  |
-------------------------------------------------------------------  --------
Английский язык                         |
-------------------------------------------------------------------  --------

Шаблон записан в текстовом файле. Все, что нужно, это при запуске программы выбрать пункт меню (от 1 до 11), выбрав таким образом предмет, ввести новую оценку, чтобы она заняла свое место и записалась в файл и автоматически высчитать средний балл по текущему предмету, соответственно записать снова в файл. То есть, чтобы заново открыв программу, мне выдавался уже обновленный дневник.
Вот, что есть на данный момент: (Паскаль только начал, так что не судите строго, если где-то нерационально)

program DNEVNIK;
uses crt;
var t:text; ln,pt:string; key,bl,rl,oap,os,ppo,et,fil,vm,fk,ig,ang,x,y:integer;
  bls,rls,oaps,oss,ppos,ets,fils,vms,fks,igs,angs:real;spc:char;
begin
repeat
clrscr;
assign(t,'ocenki.txt');
reset(t);
while not eof(t) do
begin
readln(t,ln);
writeln(ln);
end;
close(t);

{----------------------------------------------------------}
writeln('Выберите дисциплину:');
writeln;
writeln('1. Белорусская литература');
writeln('2. Русская литература');
writeln('3. Основы алгоритмизации и прогр.');
writeln('4. Операционные системы');
writeln('5. Прикладное ПО');
writeln('6. Экономическая теория');
writeln('7. Философия');
writeln('8. Высшая математика');
writeln('9. Физкультура');
writeln('10. Инженерная графика');
writeln('11. Английский язык');
writeln;
readln(key);
until  (key>=1) and (key<=11);
{--------------------------------------------------------------------}
case of key
1: begin
assign(t,'ocenki.txt');
append(t);
writeln ('Введите оценку:'); 
readln(bl); 
gotoxy(32,4);
write(bl,' ');
close(t);
end;

{--------------------------------------------------------------------------}


end.

ЗЫ. Процедуры не предлагать

Сообщение отредактировано: volvo - 17.11.2010 11:44

[Unconnected]

Получается, оценки можно только добавлять? Пр запуске надо сделать считывание всех оценок из файла.
Здесь для хранения оценок подойдёт обычный одномерный массив целых чисел. Справишься? Метки использовать тоже не очень хорошо, подумай над большим циклом, который будет заменять goto.