Az a problémám hogy kaptam egy házit amibe be kell kérni neveket meg születési évszámokat, majd a végén ki kell íratni a legidősebb és legfiatalabb egyén nevét viszont az StrToInt része valahogy nemműködik szerintem.
Egyenlőre ennyire jutottam.Remélem valaki tud segiteni hogy mit csinálok rosszul.

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var s,nev,li,lf:string;
max,min,ev:integer;
begin
max:=0;
min:=maxint;

write('Kerek egy nevet: ');
Readln(s);

while s <>'*' do
begin
write('Kerek egy szuletesi evet: ');
readln(ev);
nev:=copy(s,1,Pos('_',s)-1);
ev:= strtoint(copy(s,pos('_',s)+1,length(s)));

if maxev then
begin
min:=ev;
li:=nev;
end;

write('Kerek egy nevet: ');
Readln(s);
end;

if max<>0 then

begin
Writeln('A legfiatalabb neve: ',lf);
Writeln('A legidosebb neve: ',li);

readln;
end;
end.