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

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

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

type myArr = array[1..10] of integer;
var a: myArr;
 i, N: integer;
 procedure sdvig(x: integer; var z: myArr);
 begin
   for i:=1 to 9 do
   begin
     z[x] := z[x+1];
     x:=x+1;
   end;
 for i:=low(z) to high(z) do
     write('| ',z[i]);
 writeln('|');
 end;

begin
 randomize();
 for i:=low(a) to high(a) do
   begin
     a[i]:= random(100);
     write('| ',a[i]);
   end;
 writeln('|');
 N := random(9)+1;
 writeln('N= ',N);
 sdvig(N, a);  //вызов процедуры
 readln();
end.