Демонстрирует движение текста в графическом режиме — Pascal(Паскаль)

uses crt,graph;
var d,m,e,dx,dy,xd,yd,i:integer;
begin
d :=Detect;
initgraph(d, m, '');
e := graphresult;
if e <> grok then
writeln(grapherrormsg(e))
else
begin
dx:=0;
dy:=200;
xd:=600;
yd:=200;
settextstyle(4,0,8);
repeat
for i:=1 to 270 do begin
if dx>=0 then begin dx:=dx+1;
outtextxy(dx,dy,'A');
end;
if xd<=600 then begin xd:=xd-1;
outtextxy(xd,yd,'s');
end;
delay(800);
if dx=269 then begin
setcolor(red);
outtextxy(xd,yd,'s');
outtextxy(dx,dy,'A');
delay(25000);
setcolor(yellow);
outtextxy(xd,yd,'s');
outtextxy(dx,dy,'A');
delay(25000);
setcolor(green);
outtextxy(xd,yd,'s');
outtextxy(dx,dy,'A');
delay(25000);
setcolor(white);
end;
cleardevice;
if keypressed then break
end;
for i:=1 to 270 do begin
if dx<=270 then begin dx:=dx-1;
outtextxy(dx,dy,'A');
end;
if xd>=330 then begin xd:=xd+1;
outtextxy(xd,yd,'s');
end;
delay(800);
cleardevice;
if keypressed then break;
end;
until keypressed;
end;
end.