Turbo pascal

program dvi; uses crt; var x,y,dx,dy: integer; begin clrscr; x:=1; dx:=0; y:=1; dy:=1; repeat if (y>24) and (x=1) then begin x:=1; dx:=3; y:=24; dy:=-1; end; if (x>73) and (y=1) then begin x:=73; dx:=0; y:=1; dy:=1; end; if (y<1) and (x=73) then begin x:=73; dx:=-3; y:=24; dy:=-1; end; if(y<1) and (x=1) then begin x:=1; dx:=0; y:=1; dy:=1; end; textcolor(4); textbackground(1); gotoxy(x,y); writeln('*'); delay(64000); textcolor(7); gotoxy(x,y); writeln('*'); Подскажите как закончить программу, Суть в том что Там должна бегать звёздочка