Удалить символы из заданной строки

var
s:string;
begin
readln(s);
while pos('или',s)<>0 do
delete (s,pos('или',s),3);
writeln(s);
readln;
end.

for i:=length(s) downto 1 do
if copy(s,i,3)='или' then delete(s,i,3);

i:=1;
while i<length(s) do
if copy(s,i,3)='или' then
 begin
  i:=i+3;
  delete(s,i-3,3);
  i:=i-2;
 end
else inc(i);

var
i:integer;
s:string;
i:=1;
begin;
while i<length(s) do
if copy(s,i,3)='или' then
 begin
  i:=i+3;
  delete(s,i-3,3);
  i:=i-2;
  end
else inc(i);
end.

var
i:integer;
s:string;
begin;
Writeln('Исходная строка');
Readln(s);
i:=1;
while i<length(s) do
if copy(s,i,3)='или' then
 begin
  i:=i+3;
  delete(s,i-3,3);
  i:=i-2;
  end
else inc(i);
Writeln(s);
end.

i:=1; //первый символ
while i<length(s) do//пока не конец строки-1
if copy(s,i,3)='или' then //если 3 символа с позиции i = или
 begin
  i:=i+3;//перешагнем через них
  delete(s,i-3,3); //удалим их
  i:=i-3;//уменьшим индекс на 3(все таки правильно 3), встанем на следующий символ за удаленными
  end
else inc(i);//если не или то дальше

var
i:integer;
s:string;
begin;
Writeln('Исходная строка');
Readln(s);
i:=1;
while i<length(s) do
if copy(s,i,3)='или' then delete(s,i-3,3)
else inc(i);
Writeln(s);
end.