В массиве удалить все элементы кратные заданному числу

const n=7;
var
  a, c: array [1..n] of Integer;
  b: array [1..n] of Real;
  an, bn, cn, h, f, p, i, j: Integer;
begin
  Randomize;
  Write('Введите h, f, p: '); ReadLn(h,f,p);
  
  for i:=1 to n do a[i]:=-50+Random(100);
  for i:=1 to n do b[i]:=1+100*Random;
  for i:=1 to n do c[i]:=h+Random(f-h+1);
 
  Write('A ='); for i:=1 to n do Write(a[i]:4); WriteLn;
  Write('B ='); for i:=1 to n do Write(b[i]:4:0); WriteLn;
  Write('C ='); for i:=1 to n do Write(c[i]:4); WriteLn;
  
  an:=n;
  for i:=n downto 1 do
    if a[i] mod p=0 then begin
      Dec(an); for j:=i to an do a[j]:=a[j+1];
    end;
 
  bn:=n; i:=1;
  while (i<=n) and (b[i]<=p) do Inc(i);
  if i<=n then begin
    Dec(bn); for j:=i to bn do b[j]:=b[j+1];
  end;
 
  cn:=n; i:=n;
  while (i>0) and (c[i]<>0) do Dec(i);
  if i>0 then begin
    Dec(cn); for j:=i to cn do c[j]:=c[j+1];
  end;
  
  Write('A''='); for i:=1 to an do Write(a[i]:4); WriteLn;
  Write('B''='); for i:=1 to bn do Write(b[i]:4:0); WriteLn;
  Write('C''='); for i:=1 to cn do Write(c[i]:4); WriteLn;
end.