Записи с вариантами в Pascal

[Rise]

Пожалуйста помогите решить задачку!!!

При сдаче норм ГТО в 10-а классе были получены результаты забега на 1000 метров и прыжков в длину, а в 10-б классе - результаты забега на 1000 метров и прыжков в высоту. Определить, задав "собственные" нормы ГТО по этим видам: 1) Списки учеников, не выполнивших нормативы, 2) Количество учеников 10-б класса, выполнивших нормативы по прыжкам в высоту.

[Rise]

Абсолютно ничего не получается, не могу даже сообразить, что именно здесь должно быть вариантной частью! Помогите пожалуйста!!!

[svchaos]

По идее, запись может выглядеть так:

YorRecordForGTO=record//запись для одного ученика
  vremyaNaKm:integer;//Количество секунд, за которое он пробежал 1км
  case a:char of
    'b': pryzhokVvisotu:integer;
    'a': pryzhokVdlinu:integer;
end;

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

[Rise]

Не получается записать в массив, есть у кого мысли как это сделать?

Program Ex29;
uses crt;
const
     max=20;
Type

    gto = record
        fam:string[20];
        sto:real;
        case a:byte of
             1:(prvdl:real);
             2:(prvvs:real);
    end;
var
   M:array [1..max] of gto;
   c:char;
   kl:gto;
   i,n:integer;
   s1,pd,pv:real;
begin
clrscr;
   write ('Введите количество учеников - ');
   readln (n);
   for i:=1 to n do
       With M[i] do
            begin
               write ('Введите фамилию ученика - ');
               readln (fam);
               write ('Результат на 100 метрах - ');
               readln (sto);
               write ('Введите букву класса - ');
               case a of
                   'a':
                   'b':
                    else write ('Класса с такой буквой нет');
               end;

            end;

   s1:=12.0; { Ќ®а¬* ѓ’Ћ ** 100 ¬Ґва*е }
   pd:=2.05; { Ќ®а¬* ѓ’Ћ Ї® Їал¦Є*¬ ў ¤«Ё*г }
   pv:=1.50; { Ќ®а¬* ѓ’Ћ Ї® Їал¦Є*¬ ў ўлб®вг }

readkey;
end.

[diliana]

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

Не получается записать в массив, есть у кого мысли как это сделать?

Вот так сделай, а дальше работай как обычно с массивом

Type
gto = record
  fam:string[20];
  sto:real;
  dl:real;
  vs:real;
  clas: string [3];
   end;

var
   M:array [1..100] of gto;

begin
   write ('Введите количество учеников - ');
   readln (n);
   for i:=1 to n do
            begin
               write ('Введите фамилию ученика - ');
               readln (fam);
               write ('Введите букву класса - ');
               readln (clas);
               write ('Результат на 100 метрах - ');
               readln (sto);
               write ('Результат прыжка в длину - ');
               readln (dl);
               write ('Результат прыжка в высоту  - ');
               readln (vs);
            end;