Дано предложение, состоящее не менее чем из 5 слов. Напечатать все слова из предложения, содержащие ровно две буквы "d".

uses
  Crt;
  
const
  dividers = [' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
 
function F(s: string; ch: char): byte;
var
  i,c: byte;
begin
  c := 0;
  for i := 1 to Length(s) do
    if s[i] = ch then
      Inc(c);
  F := c
end;
 
var
  s,temp: string;
  i: integer;
begin
  ClrScr;
  ReadLn(s);
  temp := '';
  WriteLn('Íàéäåííûå ñëîâà: ');
  for i := 1 to Length(s) do
  begin
    if not (s[i] in dividers) then
      temp := temp + s[i];
    if ((s[i] in dividers) or (i = Length(s))) and (temp <> '') then
    begin
      if F(temp, 'd') = 2 then
        Write(temp, ' ');
      temp := '';
    end
  end;
end.

uses
  Crt;
 
 
function F(s: string; ch: char): byte;
var
  i,c: byte;
begin
  c := 0;
  for i := 1 to Length(s) do
    if s[i] = ch then
      Inc(c);
  F := c
end;
 
var
  s,temp: string;
  i: integer;
begin
  ClrScr;
  writeln('Введите строку из 5 слов:');
  ReadLn(s);
  temp := '';
  WriteLn('Найденные слова: ');
  for i := 1 to Length(s) do
  begin
    if  ((s[i] <> ' ') or (s[i] <> '.'))then
      temp := temp + s[i];
    if ((s[i] = ' ') or (s[i] = '.')) or (i = Length(s)) and (temp <> '') then
    begin
      if F(temp, 'd') = 2 then
        Write(temp, ' ');
      temp := '';
    end
  end;
end.