Дана строка S, слова в которой разделены пробелами и знаками препинания. Написать программы, решающие следующие задачи

procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей слов.
  D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
var
  S, SRes : String;
  i, j, Len, Pos1 : Integer;
  F : Boolean;
begin
  S := Memo1.Text;
 
  Len := Length(S);
  SRes := '';
  F := False;
  j := 0;
  Pos1 := 0;
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Счётчик букв внутри слова.
    Inc(j);
    //Флаг наличия удвоенных букв.
    if (not F) and (j > 1) then
      F := AnsiUpperCase(S[i - 1])[1] = AnsiUpperCase(S[i])[1];
    //Отслеживаем начало слова.
    if (i = 1) or (S[i - 1] in D) then Pos1 := i;
    //Отслеживаем конец слова.
    if (i = Len) or (S[i + 1] in D) then begin
      if F then begin
        if SRes <> '' then SRes := SRes + ', ';
        SRes := SRes + Copy(S, Pos1, i - Pos1 + 1);
      end;
      j := 0;
      F := False;
    end;
  end;
 
  Memo2.Clear;
  if SRes <> '' then begin
    Memo2.Lines.Add('Список слов, в которых есть удвоенные буквы:');
    Memo2.Lines.Add(SRes);
  end else
    Memo2.Lines.Add('Нет ни одного слова с удвоенными буквами.');
  ;
end;