uses
  system;

var
  z: array of integer;
  temp: string;
  n: integer;

begin
  repeat
    Console.Write('Введите размер массива: ');
    temp := Console.ReadLine();
    if not TryStrToInt(temp, n) then Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until TryStrToInt(temp, n);
  SetLength(z, n);
  Console.WriteLine('Исходный массива: ');
  for var i := 0 to z.GetLength(0) - 1 do
  begin
    z[i] := PABCsystem.Random(101) - 50;
    Console.Write(z[i] + #32);
  end;
  Console.WriteLine();
  Console.Write('Элементы для удаления: ');
  var k := 0;
  for var i := 0 to z.GetLength(0) - 1 do
    if (z[i] mod 3 = 0) and (z[i] mod 5 = 0) then
    begin
      k += 1;
      Console.Write(z[i] + #32);
    end
    else z[i - k] := z[i];
  SetLength(z, n - k);
  if k <> 0 then
  begin
    Console.WriteLine();
    Console.WriteLine('Новый массив: ');
    for var i := 0 to z.GetLength(0) - 1 do Console.Write(z[i] + #32);
    Console.WriteLine();
  end
  else Console.WriteLine('не найдены :(');
end.