Составьте программу которая иметирет движение голубого шарика по диогонали

Код в Turbo Pascal: USES Graph,CRT; VAR x,y,dx,dy,Device,Mode,i: Integer;  BEGIN     Device:=0;     InitGraph(Device,Mode,'');     x:=10; y:=10;     dx:=1; dy:=1;     i:=1;  Repeat         SetColor(Cyan);         Circle(x,y,10);         SetFillStyle(1,3);         FloodFill(x,y,Cyan);         Delay(10);         SetColor(Black);         Circle(x,y,10);         SetFillStyle(1,0);         FloodFill(x,y,Black);         x:=x+dx; y:=y+dy;      if (x>300) OR (y>200) then                                                               begin                                                                  x:=10;                                                                  y:=10;                                                                  i:=i+1;                                                               end;   until i>5; END.