Вывести все даты, встречающиеся в тексте. Строки

Continue

begin
  if F then Continue;
  <Некоторый код.>
end; //Сюда "перепрыгивает" Continue.

begin
  if not F then begin
    <Некоторый код.>
  end;
end; //Сюда раньше перепрыгивал Continue.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
  Razd = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
  Dd = ['0'..'9'];
  Dsh = Dd + ['/'];
var
  S : String;
  i, Len, Pos1, j, P1, P2, CntP : Integer;
  F : Boolean;
begin
  Writeln('Vvedite Stroku');
  Readln(S);
  Len := Length(S);
 
  Pos1 := 0;
  F := False;
  j := 0;
  for i := 1 to Len do begin
    if (i = 1) or (S[i - 1] in Razd) then begin
      Pos1 := i;
      F := True;
      j := 0;
      CntP := 0;
      P1 := 0;
      P2 := 0;
    end;
    if not F then begin;
    Inc(j);
    end;
    if S[i] = '/' then begin
      Inc(CntP);
      case CntP of
        1 :
        begin
          P1 := j;
          if not (P1 in [2, 3]) then F := False;
        end;
        2 :
        begin
          P2 := j;
          if not ( (P2 - P1) in [2, 3] ) then F := False;
        end;
      else
        F := False;
      end;
      if not F then begin;
    end; end;
    if (i = Len) or (S[i + 1] in Razd) then begin
      if not ( (j - P2) in [2, 4] ) then begin
        F := False;
        Continue;
      end;
      write( Copy(S, Pos1, i - Pos1 + 1), ', ');
      readln
    end; end; end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
(*
Строка для проверки:
10/X1/2011... 01/10/11XX, /10/11, 1/10/09, !? 102/10/11, 02/10/2009, ... 10/10/111, 4/10/2010 10/10/11112, 10/Y1/2011, 10/1/2011, 5/9/2011
*)
const
  //Множество разделителей слов.
  D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
  //Множество цифр
  Dd = ['0'..'9'];
  //Множество символов, участвующих в записи дат.
  Dsh = Dd + ['/'];
var
  S : String;
  i, Len, Pos1, j, P1, P2, CntP : Integer;
  F : Boolean;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    Writeln('Список найденных записей дат:');
    Len := Length(S);
    Pos1 := 0;  //Позиция начала шаблона.
    F := False; //Верность шаблона: True - верен, False - есть нарушения.
    j := 0;     //Счётчик позиций внутри шаблона.
    for i := 1 to Len do begin
      //Пропускаем разделители.
      if S[i] in D then Continue;
      //Отслеживаем начало шаблона.
      if (i = 1) or (S[i - 1] in D) then begin
        Pos1 := i;
        F := True;
        j := 0;
        CntP := 0;
        P1 := 0;
        P2 := 0;
      end;
      //Не выполняем обработку, если шаблон уже нарушен.
      if not F then Continue;
      //Счётчик позиций внутри шаблона.
      Inc(j);
      case S[i] of
        '/' :
        begin
          Inc(CntP);
          case CntP of
            1 :
            begin
              P1 := j;
              if not (P1 in [2, 3]) then F := False;
            end;
            2 :
            begin
              P2 := j;
              if not ( (P2 - P1) in [2, 3] ) then F := False;
            end;
            else
              F := False;
          end;
        end;
        '0'..'9' : ;
        else F := False;
      end;
      if not F then Continue;
      //Отслеживаем конец шаблона.
      if (i = Len) or (S[i + 1] in D) then begin
        if not ( (j - P2) in [2, 4] ) then
          F := False
        else begin
          //Распечатываем слово.
          Writeln( Copy(S, Pos1, i - Pos1 + 1) );
        end;
      end;
    end;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.