По паспортным данным найти самую старшую и самого старшего потомка или предка

program drevo;
uses crt;
var Vmx, n, i, k:integer;
    pr:boolean;
    F:array [1..100] of string[30];
    p:array [1..100] of char;
    v:array [1..100] of integer;
procedure input_output;
begin
write('n=');read(n);
writeln('задайте сведения');
for i:=1 to n do
begin
writeln('ф.и.о.,пол, дата рождения=');
read(f[i]);read(p[i]);read(v[i]);
end;
clrscr;
writeln('сведения');
writeln('№':5,'ф.и.о.':50,'пол':5,'возраст':10);
for i:=1 to n do
writeln(i:5,f[i]:50,p[i]:5,v[i]:5);
end;
procedure main;
begin
pr:=false;
for i:=1 to n do
if p[i]='М'then if not pr then
                           begin
                            Vmx:=v[1];
                            k:=i;
                            pr:=true;
                           end;
{else} if v[i]>Vmx then
                             begin
                              k:=i;
                              Vmx:=v[i];
                             end;
if not pr then write ('*нет')
          else write (f[k],Vmx);
end;
begin
clrscr;input_output;
main;
readkey
end.

max:=1;
min:=1;
for i:=2 to n do
begin
if (v[max] < v[i]) then max:=i;
if (v[min] > v[i]) then min:=i;
end;
writeln('The eldest: ',v[max]);
writeln('The yongest: ',v[min]);