Удалить те элементы массива, которые кратны заданному числу k - Pascal

const
  maxS = 100;
  
var
  a : array [1..maxS] of Integer;
  k, i, j, n : Integer;
  
begin
  Write('Число элементов списка (до 100): n = '); ReadLn(n);
  WriteLn('Введите через пробел все элементы списка:');
  for i := 1 to n do
    Read(a[i]);
  WriteLn;
  WriteLn('Список:'); for i := 1 to n do Write(#32, a[i]); WriteLn;
  Write('Удалить из списка числа кратные числу k = '); ReadLn(k);
  for i := n downto 1 do
    if a[i] mod k = 0 then
      begin
        dec(n);
        for j := i to n do a[j] := a[j + 1];
      end;
  WriteLn('Список:'); for i := 1 to n do Write(#32, a[i]); WriteLn;
end.