Как продолжить программу? ТУРБО ПАСКАЛЬ Нужно чтобы мяч возвратился обратно в…

Program myach; uses crt,graphabc; var x: integer; begin x: =1; for x: =190 to 465 do begin clrscr; circle (150,150,15); line (150,165,150,250); line (150,250,130,270); line (150,250,170,270); line (150,180,180,175); line (150,180,180,180); circle (500,150,15); line (500,165,500,250); line (500,250,480,270); line (500,250,520,270); line (500,180,470,175); line (500,180,470,180); circle (x,170,10); Delay (5); end; for x: =465 downto 190 do begin clrscr; circle (150,150,15); line (150,165,150,250); line (150,250,130,270); line (150,250,170,270); line (150,180,180,175); line (150,180,180,180); circle (500,150,15); line (500,165,500,250); line (500,250,480,270); line (500,250,520,270); line (500,180,470,175); line (500,180,470,180); circle (x,170,10); Delay (5); end; end.