Строки

[Nexi]

Доброго времени суток. Помоги пожалуйста решить задачу.

Дана строка из 60-ти символов, найти слова в строке, встречающиеся более 2-х раз.

[Don Karleone]

var
ST, Str: String[60];
Count, i: Byte;
flag: Boolean;

begin
readln(ST); {исходная строка символов}
while Length(ST) <> 0 do
begin
repeat
flag:=false;
if not (ST[1] in ['A'..'z']) then Delete(ST,1,1);
if Length(ST) > 0
then
begin
if ST[1] in ['A'..'z'] then flag:=true
end
else flag:=true;
until flag;
if Length(ST) = 0 then Continue;
i:=1;
Str:='';
while (ST[i] in ['A'..'z']) and (i <= Length(ST)) do
begin
Str:=Str + ST[i];
Inc(i);
end;
Count:=0;
while Pos(Str,ST) <> 0 do
begin
Delete(ST,Pos(Str,ST),Length(Str));
Inc(Count);
end;
if Count > 2 then writeln(Str);
end;
readln;
end.