Паскаль, строки

[Liam_]

Не могу никак вникнуть в задачу, условие : Удалить повторения второго слова предложения, если повторений нет - то удалить само второе слово. Буду благодарен за помощь с кодом

[Mad_Cat]

считываешь строчку-парсишь на слова- находишь все = второму - удаляешь
переписываешь обратно оставшиеся --если не нашел удаляешь второе слово

[Liam_]

ок..хоть за идею спасибо)

[Liam_]

Пока вот такая ахинея получилась...Никак не могу грамотно сделать удаление =\

uses crt;
var i,len,n,k,j:integer;
    slova: array [1..20] of string;
    st,second, st1:string;
begin
clrscr;
writeln('vvedite stroku '); readln(st);
len:=length(st);
i:=0;
j:=0;
k:=0;
while  i<len  do begin
i:=i+1;
if st[i]=' ' then begin
j:=j+1;
slova[j]:=st1;
if (slova[j]=second) or (st=second)  then begin slova[j]:=''; k:=k+1; end;
st1:='';
if j = 2 then second:=slova[j];
end else begin st1:= st1+st[i]; if i=len then slova[j+1]:=st1;
end; end;
if k=0 then slova[2]:='';
for j:=1 to len do write(slova[j],' ');
end.