Произвести удаление элемента из одномерного массива, заданного датчиком случайных чисел.

program рrim3;
  uses crt;
  var a.array [1..1000] of integer;
      i,k,n:integer;
begin
  randomize;
  clrscr;
  write(' число элементов n=');readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(45)-22;
      write(a[i], ' ');
    end;
{Вводим номер удаляемого элемента.}
  write(' номер удал. элем. k=<п ');readln(k);
  for i:=1 to n-1 do
    begin
{Смещаем элементы массива к началу, начиная с К-го.}
       if i>=k then a[i]:=a[i+1];
    end;
{Обнуляем последний элемент.}
  a[n]:=0;
{Выводим на экран измененный массив.}
  for i:=1 to n - 1 do
    begin
      write(a[i],' ');
    end;
  readln;
end.