Вот фрагмент проги (clear - процедура очистки экрана от следов):
while readkey <> 'q' do begin
while readkey='w' do begin
y:=y-5;
if y<21 then y:=21;
Bar(x, y, x+20, y+20);
clear(x, y+20, x+20, y+25);
end;
while readkey='s' do begin
y:=y+5;
if y>459 then y:=459;
Bar(x, y, x+20, y+20);
clear(x, y-5, x+20, y);
end;
while readkey='a' do begin
x:=x-5;
if x<1 then x:=1;
Bar(x, y, x+20, y+20);
clear(x+20, y, x+25, y+20);
end;
while readkey='d' do begin
x:=x+5;
if x>618 then x:=618;
Bar(x, y, x+20, y+20);
clear(x-5, y, x, y+20);
end;
end;
Можно как-нибудь избавиться от такой фигни?
ЗЫ: вот сама прога...