удаление СЛОВА из строки

[LER44IKK]

Дана некоторая последовательность слов. Вывести на печать слова, отличные от указанного слова Х. (вот уже 2-й час сижу никак не доходит,все уже перебрала(((()

[Sweta]

То что придумали в студию!!

[ОДИНОЧЕСТВО В СЕТИ]

можно вот так

Var s,s1,sub:sting;
i,j,n:integer;
a:array[1..100] of string;
q:set of char;
begin
Readln(s);
readln(s1);
i:=0;n:=0;
q:=[' ',',' , '-', '!', '?', ';',':','.'];
repeat
inc(i);
if s[i] in q then begin
inc(n);
a[n]:=sub;
sub:='';
end
else if not (s[i] in q) then sub:=sub+s[i];
until(i=length(s));
if sub<>''then begin
inc(n);
a[n]:=sub;
end;
s:='';
for i:=1 to n do
if (a[i]<>s1) s:=s+a[i]+' ';
end;
Writeln(s);
Readln;end.

[LER44IKK]

а может можно как то полегче?(((((((((

ar st:string;
x:char;
i:integer;
begin 
writeln ('vvedi stroky');
readln(st);
writeln ('vvedi clovo');
readln(x);
for i:=1 to lenght(st) do
if st[i]=x then
delete (st,pos(x,x),i);
writeln(st);
readln;
end.

кажется в моей программке логики вобще нету(( но я только начинаю паскаль изучать(

[ОДИНОЧЕСТВО В СЕТИ]

ну если

x:char;

это слово
то тогда

var st:string;
x:char;
i:integer;
begin 
writeln ('vvedi stroky');
readln(st);
writeln ('vvedi clovo');
readln(x);
for i:=1 to lenght(st) do
if st[i]=x then st[i]:='';
writeln(st);
readln;
end

.

[LER44IKK]

к сожалению не идет программка(((