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

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

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

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

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

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

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

program u15z9;
type mas=array [1..9] of integer;
var i,b:integer;
    a: mas;
function minus(d:integer; e:mas): mas;
var j:integer;
begin
  for j:=d to high(e) do //сдвигаем массив
  if j=high(e) then
    e[j]:=0
  else
    e[j]:=e[j+1];
result:=e;
end;
begin
  randomize();
  for i:=low(a) to high(a) do     //заполняем массив случайными числами
  begin
    a[i] :=random(100);
    write(a[i],' ');
  end;
  writeln();
  b:=random(8)+1;                 //получаем случайное число
  writeln('b=',b);
  a:=minus(b,a);                  //вызываем функцию сдвига
  for i:=low(a) to high(a) do     //выводим массив без числа под номером b
    write(a[i],' ');
  readln();
end.