Паскаль, строки. Не могу найти ошибку в коде.

[Liam_]

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

 function strcmp(st1,st2:string):boolean;
var
I:Integer;
bo:boolean;
begin
bo:= true;
if length(st1) <> length(st2)then strcmp:= false
else begin
 for I:=0 to length(st1)do
 if st1[i] <> st2[i] then begin bo:= false;strcmp:= false;end;
 if bo then
 strcmp:= true;
end;
end;
var
st,word,fword,sstr,mword:string;
p,I:Integer;
begin
readln(st);
p:= pos(' ',st);
fword:= copy(st,0,p);
delete(st,1,p);
p:= pos(' ',st);
word:= copy(st,0,p-1);
if(word = '') then writeln(fword)else
begin

delete(st,1,p);

while p<> 0 do begin
 p:= pos(' ',st);
 sstr:= copy(st,0,p-1);
 if(strcmp(sstr,word)=false) then
 mword:= mword + sstr + ' ';
 delete(st,1,p);
end;
if strcmp(st,word)=false or (st ='')then
mword:= mword + st;
writeln(fword + mword);
end;
readln;
end.

[OlegVE]

Здравствуйте

Сообщение от Liam_

...В предложении удалить повторения второго слова, если повторений нет - удалить само второе слово...

Вопрос конечно интересный Чтобы долго людям не разбираться в режиме правка прокомментируйте свой код.
До свидания

[sunny_alice]

И напишите хоть, что неправильно работает, в чем проблема?

[Son Of Pain]

Первое, что бросилось в глаза - в паскале символы в строках нумеруются с единицы, а не с нуля. Дальше не смотрел.

[Liam_]

Например ввожу строку: ooo ppp iii zzz , удаляет ppp, всё правильно. Ввожу ooo ppp zzz ppp , выводит ooo zzz, т.е. удаляет и само второе и его повторение. А нужно чтобы только повторение Т.т

[OlegVE]

Вы так и не прокомментировали код...
Вычислите позицию второго слова, затем определите есть ли повторение, если есть - вычислите его позицию и удаляйте один раз. Переменная позиции слова одна и та-же при удалении
До свидания

[Liam_]

Прокомментировать нет возможности, прога девушки, сам пока в строках не настолько продвинут...