Изменить программу: выводить отрицательные числа, кратные 3 и 5 одновременно (без массива)

Program v1;
uses crt;
var a: array[byte] of integer;
i, n: byte;
x: integer;
begin
n := 0;
repeat
write('Введите число x=');
readln(x);
if ((x mod 3 = 0) and (x mod 5 = 0)) then
begin
a[n] := x;
inc(n);
end;
until (x = 0);
write('число:');
for i := 0 to n - 2 do
write(' ', a[i]);
end.

program v1;
 
uses
  crt;
 
var
  i, n: byte;
  x: integer;
 
begin
  clrscr;
  n := 1;
  repeat
    gotoxy(1, 1);
    write('Введите число x = ');
    readln(x);
    if ((x mod 3 = 0) and (x mod 5 = 0)) then
    begin
      inc(n, 5);
      gotoxy(n, 2);    
      write(x);
    end;
    gotoxy(1, 1);
    write('                                  ');
  until (x = 0);
end.

if ((x mod 3 = 0) and (x mod 5 = 0) = if x mod 15

var
a,ans,i,k: integer;
 
 
begin
ans:= 0;
 
repeat
  readln(a);
  if (a mod 5 = 0) and (a mod 3 = 0) then 
    begin
      ans:= a;
      writeln(a)
    end
  else 
  begin
    writeln('Это число не кратно 3 или 5');
  end;
 
until a = 0;
end.