Задание 8 Урок 15. Одномерные массивы

Урок 15. Одномерные массивы

{15 - 8 Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9
и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.
Например:
|1|3|4|5|4|7|-8|-9|
Путь n=2, тогда после работы программы мы должны получить:
|1|4|5|4|7|-8|-9|0|
Примечание: операции сдвига элементов массива оформите в виде подпрограммы. }

type myArr  = array[1..9] of integer;

function arrMod(arr: myArr; n: integer):myArr;
var i:integer;
begin
  for i:=n to high(arr) do
    arr[i]:= arr[i+1]; //"сдвинув" значения влево и заполнив все что справа нулями.
  arr[high(arr)]:=0;
  result:=arr;
end;

procedure writeArr(arr: myArr; msg:string);
var i:integer;
begin
    writeln(msg);
    for i:=low(arr) to high(arr) do
      write(arr[i], ' ');
    writeln();
   end;

var
  a,b: myArr;
  i,n: integer;
begin
  randomize;
  for i:=1 to high(a) do
    a[i]:= random(88);   //Заполнить массив из 9 элементов случайными числами
  writeArr(a,'original array: ');
  n:= random(9);   //получить случайное число N из диапазона от 1 до 9
  writeln('random num = ', n);
  b:=arrMod(a,n);
  writeArr(b,'array modify: ');
  readln();
end.     

//original array:
//18 73 50 39 54 41 86 22 56
//random num = 3
//array modify:
//18 73 39 54 41 86 22 56 0