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

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

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

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

procedure enter(n: integer; var massiv_p: MyArr);
var g: integer;
begin
for g:=n to (high(massiv_p)-1) do
    massiv_p[g]:=massiv_p[g+1];
massiv_p[high(massiv_p)]:=0;
end;

var massiv: MyArr;
  m,i:integer;
begin
randomize();
for i:=low(massiv) to high(massiv) do
massiv[i]:=random(10);

for i:=low(massiv) to high(massiv) do
    write(massiv[i],' ');

readln(m);

enter(m,massiv);
writeln();

for i:=low(massiv) to high(massiv) do
    write(massiv[i],' ');
readln();
end.