Из текста удалить все вхождения некоторого наперед заданного символа и символ, стоящий в тексте перед ним

[LittleStudent]

Пожалуйста объясните что я не так сделал.
Вот исходник

PROGRAM Deleted;
Uses crt;
CONST
  Dim=10;
TYPE
  CHARVEC=array [1..Dim] of Char;
Var
  V1,V2:CHARVEC;
  i,DlinVec,k,n,j,z:BYTE;
  DelSym:Char;
BEGIN
  WRITELN('Vvedite ne bolee',Dim,' symbolov');
  WRITELN('konec vvoda po ENTER');
  DlinVec:=0;
  k:=0;
  n:=0;
  WHILE NOT EOLN DO
    BEGIN
      INC(DlinVec);
      READ(V1[DlinVec]);
    END;
  READLN;
  WRITE('Vvedite ydalaemiy symbol: ');
  READ(DelSym);
  WRITELN;
  j:=DlinVec;
  REPEAT
    inc(k);
    IF V1[k]=DelSym
      THEN
        BEGIN
          INC(n);
          V2[n]:=V1[k-1];
          DEC(DlinVec,2);
          FOR z:=k-1 TO j DO
            V1[z]:=V1[z+2];
          DEC(k);
        END;
      INC(k);
  UNTIL k>DlinVec;
  WRITELN('Polychaem: ');
  FOR i:=1 TO j do
    BEGIN
      WRITE(V1[i]);
    end;
  WRITELN('Ydalennie symboly: ');
  FOR i:=1 TO k DO
    BEGIN
       WRITE(V2[i]);
    END;
  READKEY;
END.

[XeruH]

о_О может так?
Только вот не понятно что на выходе должно быть? у меня текст после удалений.

program Deleted;
var
  Str, symb: string;
  SymbPos: Integer;
begin
  writeln('Input text');
  readln(str);
  writeln('Input symbol');
  readln(symb);
  symbpos := pos(symb, str);
  while symbpos > 0 do
  begin
    if symbpos = 1 then
      delete(str, 1, 1)
    else
      delete(str, symbpos-1, 2);
  end;
  writeln('Result: ', str);
end.