готовые строки, додумайте Опции

[Янычар]

короче написал прогу, которая очень хорошо удаляет слово, кторое повторяется в тексте три раза, но надо чтобы программа могла удалить сколько уугодно слов, которые встречаются в ней три раза, подскажите что в нее добаввить для этого, а вот и она сама:
Program celling;
var h,p,s,t:string;
posite2,posite,prob,m,k,del,fal,del2,fal2,prob2,rrt,nnt,c,w,i,j:integer;
begin
writeln('enter the length');
readln(h);
i:=1;
repeat
i:=i+1;
p:=p+h;
repeat
prob:=pos(' ',p);
s:=copy(p,0,prob-1);
posite:=pos(s,h);
m:=length(s);
t:=t+s;
k:=length(t);
delete(p,0,prob);
c:=length(p);
if pos(s,p)<>0 then begin
del:=pos(s,p);
fal:=del+k;
delete(p,-1,fal-1);
del2:=pos(s,p);
prob2:=pos(' ',p);
fal2:=fal+m+prob2;
if (del<>0) and (del2<>0) and (posite<>0) then
begin
delete(h,posite,m);
rrt:=pos(s,h);
delete(h,rrt,m);
nnt:=pos(s,h);
delete(h,nnt,m);
end;
while h[1]=' ' do
delete(h,1,1);
posite2:=pos(' ',h);
while h[length(h)]=' ' do
delete(h,length(h),1);
end;
until c=0;
j:=length(p);
delete(p,0,j+1);
writeln(h);
until i=10;
end.