program rekordy;
uses crt;
type osoba=record
imie:string[20];
nazwisko:string[30];
rok_ur:integer;
pesel:string[11];
end;
var tab:array[1..100] of osoba;
n,i,old,nr:integer;
begin
clrscr;
write('Podaj liczbe osob do wprowadzenia:');
readln(n);
writeln;
for i:=1 to n do
begin
write('Podaj imie:');
readln(tab[i].imie);
write('Podaj nazwisko:');
readln(tab[i].nazwisko);
write('Podaj rok urodzenia:');
readln(tab[i].rok_ur);
write('Podaj PESEL:');
readln(tab[i].pesel);
end;
writeln;
old:=tab[i].rok_ur;
nr:=1;
for i:=2 to n do
if tab[i].rok_ur begin
old:=tab[i].rok_ur;
nr:=i;
end;
writeln('Najstarsza osoba jest:');
with tab[nr] do begin
writeln(imie,' ',nazwisko,' ',rok_ur,' ',pesel);
end;
repeat until keypressed;
end.