Задача 8 Урок 15

Задача 8 Урок 15:

Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.
Например:

|1|3|4|5|4|7|-8|-9|

Путь n=2, тогда после работы программы мы должны получить:

|1|4|5|4|7|-8|-9|0|

Примечание: операции сдвига элементов массива оформите в виде подпрограммы.

procedure sdvig(var A: array of integer; N: integer);
var c: integer;
begin
  for c := N - 1 to 9 do
   A[c] := A[c + 1];
end;

var i, n: integer;
a: array [1..9] of integer;
begin
  randomize();
  for i := 1 to 9 do
   a[i] := random(101) - 50;
  write('Исходный массив:   ');
  for i := 1 to 9 do
   write(a[i], ' ');
  writeln();
  n := 1 + random(9);
  write('Сгенерированный индекс: ', n);
  sdvig(a, n);
  writeln();
  write('Измененный массив: ');
  for i := 1 to 9 do
   write(a[i], ' ');
  readln();
end.