Сформировать массив а[1..12], упорядоченный по возрастанию. Если он содержит заданное число, удалить его из массива

[schibeki]

Условие: Сформировать массив а[1..12], упорядоченный по возрастанию. Методом бинарного поиска определить, содержит ли он заданное число. Если элемент найден, то удалить его из массива.
Основной код есть и поиск работает,но с удалением у меня ерунда,помогите. КодКод Pascal

Program Pr2;
   Var
       a: array[1..12] of integer;
       k: real;    l, r, m, i: integer;
BEGIN
            {формирование и вывод массива}
     for i:=1 to 12 do
          begin
               a[i]:=2*i-1; write(a[i]:4);
     end;
     writeln;
     write('Введите ключ поиска'); readln(k);
      l:=1; r:=12;    {установка начальных границ поиска}
      m:=(l+r) div 2;     {выбор серединного элемента}
                  {поиск заданного элемента}
      while (l<=r) and (k<>a[m]) do
             begin
                   if     k<a[m]    then r:=m-1    else l:=m+1;
                   m:=(l+r) div 2;
            end;
     if   k=a[m]   then writeln('Элемент найден. Его номер - ',m)  else writeln('элемент не найден');
END.

[schibeki]

For i:=1 To 12-1 Do Begin
a[i]:= a[i+1];
a[k]:=0;
это не работает..........

[Stilet]

Program Pr2;
   Var
       a: array[1..12] of integer;
       k: real;    l, r, m, i,n: integer;
BEGIN
            {формирование и вывод массива}
n:=12;
     for i:=1 to n do
          begin
               a[i]:=2*i-1; write(a[i]:4);
     end;
     writeln;
     write('Введите ключ поиска'); readln(k);
      l:=1; r:=12;    {установка начальных границ поиска}
      m:=(l+r) div 2;     {выбор серединного элемента}
                  {поиск заданного элемента}
      while (l<=r) and (k<>a[m]) do
             begin
                   if     k<a[m]    then r:=m-1    else l:=m+1;
                   m:=(l+r) div 2;
            end;
     if   k=a[m]   then begin
       writeln('Элемент найден. Его номер - ',m);
       for i:=m+1 to n do a[i-1]:=a[i];
       dec(n);
 end  else writeln('элемент не найден');
 for i:=1 to n do write(a[i]:5);
END.

Идея ясна?

[schibeki]

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

Program Pr2;
   Var
       a: array[1..12] of integer;
       k: real;    l, r, m, i,n: integer;
BEGIN
            {формирование и вывод массива}
n:=12;
     for i:=1 to n do
          begin
               a[i]:=2*i-1; write(a[i]:4);
     end;
     writeln;
     write('Введите ключ поиска'); readln(k);
      l:=1; r:=12;    {установка начальных границ поиска}
      m:=(l+r) div 2;     {выбор серединного элемента}
                  {поиск заданного элемента}
      while (l<=r) and (k<>a[m]) do
             begin
                   if     k<a[m]    then r:=m-1    else l:=m+1;
                   m:=(l+r) div 2;
            end;
     if   k=a[m]   then begin
       writeln('Элемент найден. Его номер - ',m);
       for i:=m+1 to n do a[i-1]:=a[i];
       dec(n);
 end  else writeln('элемент не найден');
 for i:=1 to n do write(a[i]:5);
END.

Идея ясна?

да,спасибо