program primer2;

type anketa=record
   fio: string[45];
   dat_r: string[8];
   adres: string[50];
   cl: string[5];
   gr: string[3]
end;

var pupil: array [1..100] of anketa;
   I: integer;

begin
   {последовательно вводим каждую запись}
   for I:=1 to 100 do
   begin
      writeln (‘введите сведения о’, I , ‘-м ученике’);
      writeln (‘введите фамилию, имя и отчество’);
      readln (pupil[I].fio);
      writeln (‘введите дату рождения’);
      readln (pupil[I].dat_r);
      writeln (‘введите адрес’);
      readln(pupil[I].adres);
      writeln (‘введите класс’);
      readln(pupil[I].cl);
      writeln (‘введите группу’);
      readln (pupil[I].gr);
   end;
   writeln (‘ввод закончен’);
   writeln ;
   {просматриваем массив записей и выбираем только учеников 11-1 класса }
   for I:=1 to 100 do
      if pupil[I].cl='11-1' then
         writeln(‘ фамилия студента : ’, pupil[I].fio);
end.