program rekord;
type
  tanulo_tipus = record
    nev : string;
    szuletesi_ev : word;
  end;
var 
  tanulo: tanulo_tipus;
begin
  tanulo.nev := 'Kelep Elek';
  tanulo.szuletesi_ev := 2000;
end.