Работа с данными комбинированного типа

[Аня_Аня]

Распечатать список студентов, возраст которых младше заданного года рождения

[Arhangel7]

var
  Vozr, i:integer;
begin
  write('Введите год рождения --> '); Readln(Vozr);
  for i:=1 to 10 do writeln('Студент №'+inttostr(i)+' '+' год рождения '+inttostr(Vozr-i));
  readln;
end.

[kuy]

По-моему, тут нужно через записи:

type student=record
   Age: integer;
   Name: string[20];
   Lasname: string[20];
end ;