удаление слова

[LER44IKK]

.дана некоторая последовательность слов. Вывести на печать слова, отличные от указанного слова Х.
вот моя программка, но она не работает, в чем ошибка?
Program рор;
Var st: string;
x:char;
i:integer;
Begin
Writeln (‘vvedi stroky’);
Read (st);
Writeln (‘vvedi clovo’);
Read (x);
for I:=1 to lenght(st)
while st=x then
delete (st,pos(x,x),i);
Writeln (st);
End.