Если элемент найден, то удалить его и стоящий перед ним элемент

{Сформировать массив Х[1..n], упорядоченный по возрастанию.
Определить, содержит ли он заданное число.
Если элемент  найден, то удалить его и [B]стоящий перед ним элемент.[/B]}
Program PR_2;
   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.

Program PR_2;
Var a: array[1..12] of integer;
    n, i, j, k, l, r, m: integer;
    f: boolean;
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:=n;
f:=false;
while (l<=r)and not f do
 begin
   m:=(l+r) div 2;
   if k<a[m] then r:=m-1 else if k>a[m] then l:=m+1
   else f:=true;
 end;
if f then
 begin
  writeln('Элемент найден. Его номер - ',m);
  if m=1 then
   begin
    writeln('Элемент первый, удаляется только он');
    for i:=m to n-1 do a[i]:=a[i+1];
    dec(n);
    for i:=1 to n do
    write(a[i]:4);
   end
  else
   begin
    for j:=1 to 2 do
     begin
      for i:=m-1 to n-1 do a[i]:=a[i+1];
      dec(n);
     end;
    writeln('Удаляются элементы номер ',m-1,' и ',m);
    for i:=1 to n do
    write(a[i]:4);
   end
 end
else writeln('элемент не найден');
end.