Движение надписи

[What's_That?]

Программа должна выдавать надпись,рандомно скачущую по экрану,однако надпись выводится в рандомном месте и стоит. В чем проблема,исходя из моего быдло-кода?

uses crt,graph;
var
a,b,d,f:integer;
c:char;
begin
d:=detect;
InitGraph(d,f,'');
repeat
randomize;
a:=random(700);
b:=random(700);
OutTextXY(a,b,'ShitMove');
c:=readkey;
until c=readkey;
closeGraph;
end.

[Serge_Bliznykov]

1) программа делает ровно то, о чём Вы её попросили

2) что Вы хотели сказать программе (что она должна делать) согласно этому коду :

c:=readkey;
until c=readkey;

??!

3) общий принцип анимации/движения чего-бы то ни было...
начало цикла
рисуем объект (пишем надпись)
делаем паузу.
стираем объект или надпись.
вычисляем новые координаты
если не конец (выход), то переход к началу цикла
конец цикла.

[Zer0]

уж правильнее было бы первый c:=readkey поменять на delay(200) к примеру, а условие для цикла - repeat until keypressed;
и не забывать чистить экран в начале цикла

[Stilet]

Добавлю:
c:=readkey; не рулит если нужна динамика.
Ты лучше попробуй until keypressed. От тады будет все в ажуре.

Zer0

Опередил однако )

[What's_That?]

Сенкс биг всем))поправил уже вчера,все работает,однако))