Удаление элементов массива

[LittleStudent]

Здравствуйте уважаемые программисты.
Прошу помочь. Подскажите пожалуйста что я написал неправильно.
Так мой преподаватель говорит, что это полная туфта.

А вот и сам код:

PHP код:

program Text;
uses crt;
Const
  Dim=10;
Type
  CharText=array[1..Dim] of char;
Var
  ChVec,DopVec:CharText;
  NacSchet,Schet,KolSym,Znach,Cifr,Cick:byte;
  DelSym:char;
  flag:boolean;
begin
  clrscr;
  Writeln('Vvedite ne bolee ',Dim,' symbolov');
  KolSym:=0;
   while not EOLN do
    Begin
      Inc(KolSym);
      Read(ChVec[KolSym]);
    End;
  Readln;
  write('Vvedite symbol: ');
  Readln(DelSym);
  Schet:=KolSym;
  Cifr:=1;
  Znach:=1;
  Repeat
    if ChVec[Znach]=DelSym
      then
        begin
          inc(Cifr);
          DopVec[Cifr]:=ChVec[Znach];
          inc(Cifr);
          DopVec[Cifr]:=ChVec[Znach-1];
          Dec(KolSym);
          Dec(KolSym);
          for Cick:=Znach-1 to Schet do
            ChVec[Cick]:=ChVec[Cick+2];
         Dec(Znach);
        end;
    Inc(Znach);
  Until Znach>KolSym;
  for NacSchet:=1 to Schet do
    begin
      Write(ChVec[NacSchet]);
    end;
  writeln;
  readln;
end.