Паскаль. дана строка n символов. вывести все слова с удвоенными буквами

Var
  n,i:integer;
  s,t:string;
  f:boolean;
begin
readln(s);
n:=length(s);
f:=false; 
for i:=2 to n do
    begin
    t:=t+s[i];
    if s[i]=s[i-1] then f:=true;
    if (s[i]=' ') or (i=n) then
       begin
       if f then writeln(t);
       t:='';
       f:=false;
       end
    end;
end.