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

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

Заполните массив из 5 элементов случайными числами из любого диапазона.
Далее пользователь вводит в цикле значения от 1 до 5 -- удаляйте из массива очередной элемент с позиции очередного введенного пользователем числа, сдвигая оставшиеся элементы массива влево, заполняя то, что справа нулями. Распечатывайте промежуточной состояние массива, после каждого удаления.

Цикл должен работать до тех пор, пока в массиве не останется ненулевых элементов или пока пользователь не введет число большее чем 5 или меньшее чем 1.

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

var a: MyArr;
m,g,n: integer;

function enter(b: MyArr): MyArr;
begin
  while (m>0) do
  begin
    readln(n);
    if (n>1) and (n<=5) then
    begin
         if m=5 then
            for g:=n to m do
                b[g]:=b[g+1];
                b[high(b)]:=0;

         if m<5 then
            for g:=n to m do
                b[g]:=b[g+1];
                b[m]:=0;

         m-=1;
         for g:=low(b) to high(b) do
             write(b[g],' ');
             writeln();
    end
    else
        break;
  end;
  result:=b;
end;

begin
  m:=5;

  randomize();
  for g:=low(a) to high(a) do
      a[g]:=1+random(15);

  for g:=low(a) to high(a) do
      write(a[g],' ');
      writeln();

  a:=enter(a);
readln();
end.