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

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

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

var i,i2: integer;
    a,b: array [1..8] of integer;

procedure randomchis(var a: array of integer);
var min, max: integer;
begin
   randomize();
   min := -5;
   max := 5;
   for i:=low(a) to high(a) do
       a[i] := min + random(max - min + 1);
end;
begin
  randomchis(a);
  i2:=0;
  for i:=low(a) to high(a) do
    if a[i]>0 then
    begin
      i2+=1;
      b[i2]:=a[i];
    end;
    for i:=low(a) to high(a) do
     write(a[i], ' ');
    writeln();
    writeln();
    for i2:=low(b) to high(b) do
        write(b[i2], ' ');
  readln();
end. 

Вывод консоли:

original array:
70 18 9 6 75 36 86 67 17
random num = 3
array modify:
70 18 6 75 36 86 67 17 0