Удаление символов - Pascal (85905)

var s:string;
    c:char;
    i,i1,ip:byte;
begin
writeln('Введите строку');
readln(s);
write('Введите символ для поиска c=');
readln(c);
i1:=0; ip:=0;
for i:=1 to length(s) do
if s[i]=c then
 if i1=0 then i1:=i
  else ip:=i;
if i1=0 then write('Символа ',c,' в строке нет')
else if ip=0 then write('В строке только 1 символ ',c)
else if ip-i1=1 then write('Первый и последний символы ',c,' рядом')
else
 begin
  writeln('i1=',i1,' ip=',ip);
  delete(s,i1,ip-i1+1);
  write(s)
 end;
readln
end.