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

procedure TForm1.Button1Click(Sender: TObject);
var S:string;
i,p:Integer;
Dat:TDate;
begin
S:=Edit1.Text+' ';
For i:=1 to length(S) do
 if S[i]='/' then S[i]:='.'
 else
 if not(S[i] in ['0'..'9']) then
  S[i]:=' ';
p:=pos('  ',S);
while p<>0 do
 begin
 delete(S,p,1);
 p:=pos('  ',S);
 end;
p:=pos(' ',S);
while p<>0 do
 begin
 p:=pos(' ',S);
 try
 Memo1.Lines.Add(DateToStr(StrToDate(copy(S,1,p-1))));
 except
 end;
 delete(S,1,p)
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей слов.
  D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
  //Множество цифр
  Dd = ['0'..'9'];
  //Множество символов, участвующих в записи дат.
  Dsh = Dd + ['/'];
var
  S : String;
  i, Len, Pos1, j, P1, P2, CntP : Integer;
  F : Boolean;
begin
  Memo2.Clear;
  S := Memo1.Text;
  Len := Length(S);
 
  Pos1 := 0;  //Позиция начала шаблона.
  F := False; //Верность шаблона: True - верен, False - есть нарушения.
  j := 0;     //Счётчик позиций внутри шаблона.
  for i := 1 to Len do begin
    //Пропускаем все символы, которые не могут входить в шаблон.
    if not (S[i] in Dsh) 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);
    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 Continue;
    end;
    //Отслеживаем конец шаблона.
    if (i = Len) or (S[i + 1] in D) then begin
      if not ( (j - P2) in [2, 4] ) then begin
        F := False;
        Continue;
      end;
      //Добавляем найденный экземпляр в Мемо2.
      Memo2.Lines.Add( Copy(S, Pos1, i - Pos1 + 1) );
    end;
 
    //------------------------------------------------------------
  end;
end;

const drob='/'

Continue

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
  Razd = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
  Cifr = ['0'..'9'];
  Data = Cifr + ['/'];
  prep = '.;,:';
var s, slovo: string;
    i, ns, ks: integer;
begin
writeln ('Vvedite stroky'); readln (s);
i:=1;
while i<= length (s) do
   begin
     ns:=i;
     while (i<=length (s)) and (pos (s[i],prep)=0) do inc(i);
 
     ks:=i-1;
     while (i<=length (s)) and (pos (s[i],prep)<>0) do inc(i);
     slovo:=copy (s, ns, ks-ns+1);
   end;
writeln (slovo);
readln
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
  Razd = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
  Cifr = ['0'..'9'];
  Data = Cifr + ['/'];
  prep ='.,:, ;';
var s, otv, slovo: string;
    i, ns, ks: integer;
begin
writeln ('Vvedite stroky'); readln (s);
i:=1;
otv:='';
while i<= length (s) do
   begin
     ns:=i;
     while (pos (s[i],prep)=0) do inc(i);
 
     ks:=i-1;
     while (pos (s[i],prep)<>0) do inc(i);
     slovo:=copy (s, ns, ks-ns+1);
 
     otv:= otv + slovo + ' ';
     end;
     delete (otv, length (otv), 1);
writeln (otv);
readln
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
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 begin
          F := False;
          Continue;
        end;
        //Распечатываем слово.
        Writeln( Copy(S, Pos1, i - Pos1 + 1) );
      end;
    end;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
const
  //Множество разделителей слов.
  D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
var
  S : String;
  i, Len, Pos1 : Integer;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    Writeln('Список найденных слов:');
    Len := Length(S);
    Pos1 := 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 Pos1 := i;
      //Отслеживаем конец слова.
      if (i = Len) or (S[i + 1] in D) then begin
        Writeln( Copy(S, Pos1, i - Pos1 + 1) );
      end;
    end;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.