[angvelem]

Код:

var
  BufferIn : array of Integer;
  BufferOut : array of Integer;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
begin
  // Создаём массив размерностью, заданной в Edit1
  SetLength(BufferIn, StrToIntDef(Edit1.Text, 0));
  // Заполняем его случайными числами
  for I := 0 to Length(BufferIn) - 1 do
    BufferIn[i] := Random(100);
  // проверяем на условие и, если удовлетворяет, увеличиваем размерность
  // выходного массива и копируем из основного массива
  for I := 0 to Length(BufferIn) - 1 do
    if (BufferIn[i] mod 5 = 0) and (BufferIn[i] mod 7 <> 0) then
    begin
      SetLength(BufferOut, Length(BufferOut) + 1);
      BufferOut[Length(BufferOut) - 1] := BufferIn[i];
    end;
end;

Как то так.