program zadanko;
type osoba=record
imie:string[15];
nazwisko:string[29];
wiek:byte;
end;
var rec2,rec3:osoba;
procedure podaj(var rec1:osoba);
begin
writeln('podaj imie');
readln(rec1.imie);
writeln('podaj nazwisko');
readln(rec1.nazwisko);
writeln('podaj wiek');
readln(rec1.wiek);
end;
begin
podaj(rec2);
podaj(rec3);
if (rec2.wiek)>(rec3.wiek)
then writeln(rec2.imie,' ',rec2.nazwisko)
else writeln(rec3.imie,' ',rec3.nazwisko);
readln;
end.