packal строки

[lunnamedl]

4. С клавиатуры вводится строка, состоящая из слов, отделенных друг от друга пробелами (пробелов может быть несколько). Напечатать только те слова, в которых первая буква встречается еще раз.

помогите..

[pr_serg]

Program Stroki;
Var S,s1,s2: String;
d: Integer;
Begin
ClrScr;
WriteLn('vvedi stroku'); ReadLn(S);
s:=' '+s+' ';
//удаление лишних пробелов
while Pos(' ',s) > 0 do delete(s,Pos(' ',s),1);
delete(s,1,1);
while Pos(' ',s) > 0 do
begin
d:=pos (' ',s);
s1:=copy(s,1,d);
s2:=s1;
delete(s2,1,1);
if pos(s1[1],s2)>0 then write(s1);
delete(s,1,d);
end ;
End.
вобросы будут пиши

[lunnamedl]

program pr1;
var
str : string;
i, l, k, nw : integer;
begin
i := 1; k := 0;
writeln('Введите строку');
readln(str);
l := length(str);
while (i <= l) do
begin
if str[i] = ' ' then inc(i);
nw := i;
while (i <= l) and (str[i] <> ' ') do
inc(i);
if str[nw] = str[i-1] then inc(k);
end;
writeln('Кол - во слов удовлетворяющих задаче = ', k);
readln;
end.

а это может быть правильным?