[TP 7.0] Problem z wygaszaczem a konkretnie [randomize]

Witam,
Zapragnolem napisac sobie prosty wygaszacz :)

Oto mini kodzik :)
Proste i mile :) ale jak wykluczyc 1.1 ? konkretnie polozenie 1.1 ma nie byc bo najczesciej mi tam wlasnie staje i jest to w ogóle nie efektowne :(

Help Oto kodzik ->
Pytanie ? jak zadeklarowac wartosci z randomize ktore nie maja byc wyswietlane..
.

uses crt;

begin
repeat
clrscr;
randomize;
gotoxy(random(250),random(250));
writeln('WYGASZACZ'); delay(1000);
until keypressed;
end.

Dać w pętli zmienną Integer:

Until (x <> 1) and (y <> 1)

Rozumiem zeby najpierw zrandomowac liczbe do zmiennej
np wysokosc a potem w gotoxy(wysokosc,szerokosc);

Mam racje ?

Liczby z zakresu od 1 do 250 to:

1+Random(250)

Dalem tak i dalej nie ma porzadanego efektu :(

uses crt;

begin
repeat
clrscr;
randomize;
gotoxy(20+random(250),20+random(250));
writeln('WYGASZACZ'); delay(600);
until keypressed;
end.

A jaki ma być pożądany efekt?

MA skakac sobie pieknie :) Randomize wymysla liczby i wpisuje je do gotoxy :) i dzieki temu napis ma sie pojawiac w roznych miejscach :)
dzieki zapetleniu program bedzie oczekiwal na wduszenie wodolnego klawisza a pÓÓÓÓki to nie nastapi bedzie sie powrazac :)

Efekt powinien byc taki skok w jedno miejsce skok w 2 skok w 3 a ja mam tak 10sec w gornym rogu potem od laski skoczy na srodek... na 0,5 sec i znowu na kilka sec na poczatek....

gotoxy(1+random(79),1+random(24));

randomize wywoluje sie 1 raz
nie powinno byc w petli

uses CRT;
const Text:string='WYGASZACZEK :)';

begin
  Randomize;
  repeat
    ClrScr;
    GotoXY(random(80)+1-Length(text),random(24)+1);
    Write(text);
    delay(100);
  until KeyPressed;
end.