задача 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|

program task_8_lesson_15;
type arr = array [1..9] of integer;

function move(ar: arr; n: integer): arr;
var i : integer;
begin
    for i := n to high(ar) do
      if i < high(ar) then
        begin
          ar[i] := ar[i + 1];
        end
      else
        ar[i] := 0;
    result := ar;
end;
var a: array[1..9] of integer;
  i, n: integer;
begin
  randomize();
  for i := 1 to 9 do
    a[i] := -10 + random(20);    // заполняю массив
  n := 1 + random(8);            // рандом от 1 до 9 N - номер элемента массива
  for i := low(a) to high(a) do
    write(a[i], ' ');
  writeln('smestit element #', n);
  a := move(a, n);
  for i := low(a) to high(a) do
    write(a[i], ' ');
  readln
end. 

Консоль

7 6 -8 9 -10 3 8 -6 -10 smestit element #1
6 -8 9 -10 3 8 -6 -10 0