Из текста выбрать те строки, год рождения которых больше заданного

{Из текста , каждая строка которого содержит информацию(фамилия,
год рождения. профессия), выбрать те строки, год рождения которых
больше заданного}
var
  f:text;
  s:string;
  readyear,year:integer;
function GetYearFromString(s:string):integer;
var
  code,n,i:integer;
begin
  for i:=1 to Length(s) do
    if s[i] in ['0'..'9'] then
      begin
        n:=i;
        break;
      end;
  { trim left }
  delete(s,1,n-1);
  for i:=Length(s) downto 1 do
    if s[i] in ['0'..'9'] then
      begin
        n:=i;
        break;
      end;
  { trim right }
  { работает прикорректной строке}
  delete(s,n+1,Length(s)-n);
  val(s,n,code);
  if code=0 then
    GetYearFromString:=n
  else
    GetYearFromString:=-maxint; //если выход ф-ции <0 то какая то байда
end;
 
begin
  write('Введите год рождения: ');  readln(readyear);
  assign(f,'workers.txt');
  reset(f);
  while not eof(f) do
    begin
      readln(f,s);
      year:=GetYearFromString(s);
      if year>readyear then
        writeln(s);
    end;
  close(f);
  readln;
end.

{Из текста , каждая строка которого содержит информацию(фамилия,
год рождения. профессия), выбрать те строки, год рождения которых
больше заданного}
const
  n=10;
var
  s:string;
  i,readyear,year:integer;
  a:array[1..n] of string;
 
function GetYearFromString(s:string):integer;
var
  code,n,i:integer;
begin
  for i:=1 to Length(s) do
    if s[i] in ['0'..'9'] then
      begin
        n:=i;
        break;
      end;
  { trim left }
  delete(s,1,n-1);
  for i:=Length(s) downto 1 do
    if s[i] in ['0'..'9'] then
      begin
        n:=i;
        break;
      end;
  { trim right }
  { работает прикорректной строке}
  delete(s,n+1,Length(s)-n);
  val(s,n,code);
  if code=0 then
    GetYearFromString:=n
  else
    GetYearFromString:=-maxint; //если выход ф-ции <0 то какая то байда
end;
 
begin
  write('Введите год рождения: ');  readln(readyear);
  for i:=1 to 5 do
    begin
      write('Введите фамилию, год рождения, профессию: ');  readln(a[i]);
    end;
  writeln; 
  writeln('Данные, удовлетворяющие условию: ');
  for i:=1 to 5 do
    begin
      year:=GetYearFromString(a[i]);
      if year>readyear then
        writeln(a[i]);
    end;
 
  readln;
end.