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

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

Заполнить массив из 9 элементов случайными числами из диапазона от нуля до N, и затем удалите из этого массива все элементы равные M, причем удаление необходимо производить "сдвигом" влево оставшихся элементов на позиции элементов, совпавших с M.
Решить двумя способами:
1) Любым
2) Провести операцию сдвига за одно прочтение исходного массива (для этого нам потребуется еще один массив, где мы будем хранить какие-то значения)

program u15z11;
var a:array [1..9] of integer;
    b:array [1..9] of integer;
var min,max,i,j,n,m:integer;
begin
  writeln('Vvedite N u M');
  readln(n);
  readln(m);
  randomize();
  min := 0;
  max := n;
  for i:=low(a) to high(a) do
  begin
    a[i] := min + random(max - min + 1);  //заполняем первый массив
    write(a[i],' ');
    if a[i]<>m then           //заполняем второй без M
    begin
      j:=j+1;
      b[j]:=a[i];
    end;
  end;
  writeln();
  for i:=low(b) to j do  //выводим новый массив без M
    write(b[i],' ');
  readln();
end.