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

[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

[volvo]

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

Ага. А к тебе - тоже есть требование: GoTo из программы убрать. Уберешь - приходи, будем разговаривать дальше. Все ясно?

P.S. С чего ты вообще решил, что тебе кто-то БУДЕТ что-то предлагать? Я как-то вопроса не увидел в первом посте. Ну, есть у тебя код. И?