как в этой программе использовать меню через метки

[Danteeee]

Меню типа:1)input.data 2)list.data 3)work.data 4)exit
Суть самой программы:Создать массив записей, содержащий сведения о сдаче студентами сессии. Структура записи - индекс группы, ФИО студента, оценки по пяти экзаменах.И сделать выборку информации о студентах сдавшие сессию без троек.

Type
    tSession = Record
    Index : String;
    FIO:String;
    matem:1..5;
    litra:1..5;
    mova:1..5;
    fisika:1..5;
    history:1..5;
end;
Var

  stud:array of tSession;
  i,n:byte;
      begin
      Write('Введите количество Студентов: ');
    ReadLn(n);
    SetLength(stud, n); 
    Dec(n);
For i:=0 To n Do
with stud[i] do
      begin
writeln ('Введите индекс группы');
readln (stud[i].index);
  writeln ('Введите ФИО');
readln (stud[i].FIO);
  writeln ('Введите oценку за математику');
readln (stud[i].matem);
writeln ('Введите oценку за Литературу');
readln (stud[i].litra);
writeln ('Введите oценку за Украиский язык');
readln (stud[i].mova);
writeln ('Введите oценку за физику');
readln (stud[i].fisika);
writeln ('Введите oценку за историю');
readln (stud[i].history);
  end;
for i:=0 to n do
      begin
writeln('Группа: ', stud[i].index, '; ФИО: ',stud[i].FIO);
writeln('оценки за экзамены: ');
writeln('Математика: ',stud[i].matem,
'; Литература: ',stud[i].litra,'; Украиский язык: ',stud[i].litra,'; Физикa: '
,stud[i].fisika,'; История: ',stud[i].history);
end;
with stud do
begin
for i:=0 to n do
if (stud[i].matem and stud[i].litra and stud[i].mova and stud[i].fisika
 and stud[i].history)>3
then writeln('Студенты без троек','-',stud[i].FIO);
end;
end.

[Вадим Вергун]

Неужели у авторов этих олимпиад фантазия кончалась...

[Stilet]

Danteeee

А знаешь почему у тебя плохой преподаватель, и слушать его не нужно?
Не? А ты спроси его, если он расскажет всетки почему метковые переходы сейчас стараются не использовать то задай второй вопрос - откуда такое задание. А если он не ответит то лучше задумайся доверять ли ему, и чему он тебя научит.

Теперь по теме:

program Project1;
Type
    tSession = Record
    Index : String;
    FIO:String;
    matem:1..5;
    litra:1..5;
    mova:1..5;
    fisika:1..5;
    history:1..5;
end;
    label menu,inputdata,listdata,workdata;
Var

  stud:array of tSession;
  i,n:byte;
begin

menu:
writeln(
 'Выбери что нуна:'#13#10,
 '1) Ввод'#13#10,
 '2) Вывод'#13#10,
 '3) Непонятно что'#13#10,
 '4) Выход'#13#10
);
readln(n);

case n of
 1: goto inputdata;
 2: goto listdata;
 3: goto workdata;
 4: exit;
end;

inputdata:

    Write('Введите количество Студентов: ');
    ReadLn(n);
    SetLength(stud, n);
    Dec(n);
      For i:=0 To n Do
        with stud[i] do            begin
          writeln ('Введите индекс группы');
          readln (stud[i].index);
            writeln ('Введите ФИО');
          readln (stud[i].FIO);
            writeln ('Введите oценку за математику');
          readln (stud[i].matem);
          writeln ('Введите oценку за Литературу');
          readln (stud[i].litra);
          writeln ('Введите oценку за Украиский язык');
          readln (stud[i].mova);
          writeln ('Введите oценку за физику');
          readln (stud[i].fisika);
          writeln ('Введите oценку за историю');
          readln (stud[i].history);
        end;
goto menu;

listdata:
    for i:=0 to n do      begin
      writeln('Группа: ', stud[i].index, '; ФИО: ',stud[i].FIO);
      writeln('оценки за экзамены: ');
      writeln('Математика: ',stud[i].matem,
        '; Литература: ',stud[i].litra,'; Украиский язык: ',stud[i].litra,'; Физикa: '
          ,stud[i].fisika,'; История: ',stud[i].history);
    end;
goto menu;

workdata:
    for i:=0 to n do
     with stud[i] do  begin
     if (stud[i].matem and stud[i].litra and stud[i].mova and stud[i].fisika
      and stud[i].history)>3
     then writeln('Студенты без троек','-',stud[i].FIO);
    end;
goto menu;
end.

Имей ввиду там еще куча ошибок в программе. Я их не исправлял. Я просто показал как писать с прыжками.

[Artsiom]

Сообщение от Stilet

goto

Фу, какая гадость.
И то, что это гадость я понял после того как написал курсач, а потом его переписал - наново и по нормальному.

[Stilet]

Фу, какая гадость.

Все гадость, если делать спустя рукава. Смысл в том что автор пожаловался на то что ему указали на отсутствие моска у его сенсея, о чем я и пытаюсь ему втолковать. Если сенсей не знает как правильно преподнести прыгающий код своим гакусеям, то такого препода надо к шведской стенке пятой точкой кверху поставить - ничему он не научит не имея знаний.

[Danteeee]

Сообщение от Stilet

Все гадость, если делать спустя рукава. Смысл в том что автор пожаловался на то что ему указали на отсутствие моска у его сенсея, о чем я и пытаюсь ему втолковать. Если сенсей не знает как правильно преподнести прыгающий код своим гакусеям, то такого препода надо к шведской стенке пятой точкой кверху поставить - ничему он не научит не имея знаний.

ну спасибо хоть и на этом)