Вывод на экран двузначных чисел из файла

program text;   {название программы}
 
uses
  crt;{подключение модуля для работы с экраном}
 
var
  f: text;
  t: string;
  i, j: byte;
  flag: boolean;
  s: string;
 
procedure parser(s: string; var flag: boolean);
var
  ss, sd: string;
  p, i, j: byte;
begin
  ss := s;
  while length(ss) <> 0 do
  begin
    p := 0;
    p := pos(' ', s);
    if p = 3 then
    begin
      if (ss[1] in ['0'..'9']) and (ss[2] in ['0'..'9']) then
        delete(ss, 1, 3)
      else
      begin
        flag := false;
        break
      end
    end
    else
    if (length(ss) <> 2) or not (s[1] in ['0'..'9']) or not (s[2] in ['0'..'9']) then
    begin
      flag := false;
      break;
    end
    else delete(ss, 1, 2)
  end;
end;
 
begin{начало программы}
  clrscr;   {очистка экрана}
  writeln('Задание 4');
  writeln('Программа выводит на экран строки из файла, содержащие только двузначные числа.');
  writeln('Введите имя выбранного файла:');
  readln(t);
  assign(f, t);
  reset(f);
  while not eof(f) do
  begin
    flag := true;
    readln(f, s);
    parser(s, flag);
    if flag = true then writeln(s);
  end;
  readkey;   {ожидание нажатия клавиши}
end.