Program Record_17; uses crt;

const maxid=5;

type TShool=record
            surname:string [25];
            nclass:byte;
            end;

     TData=array [1..maxid] of TShool;

var data:TData;
    id:byte;

Begin clrscr;
id:=0;

for id:=1 to maxid do
Begin
Write('--------------------------------------------------------------------------------');
Writeln(' Введите следующие данные:');
Write(' Фамилию ученика: '); Readln(Data[id].Surname);
Write(' Класс: '); Readln(Data[id].nClass);
end;

Write('--------------------------------------------------------------------------------');
Writeln(' Список учеников обучающихся в 10 классе: ');
for id:=1 to maxid do if (Data[id].nClass = 10) then Writeln(Data[id].Surname);
Readln;
end.