Как заменить программу в турбо паскале чтоб она решалась в паскале ABC? program kRUGI; uses…

Как заменить программу в турбо паскале чтоб она решалась в паскале ABC? program kRUGI; uses crt; var gd,gm,c,i,r,x,y,n: integer; beginclrscr; randomize; writeln ('введите колличество окружностей->'); readln (n); gd: =0; for i: =1 to n do begin r: =random (80); x: =random (600); y: =random (400); c: =random (15); setcolor (c); circle (x,y,r); setfillstyler (1,c); floodfill (x,y,c); end; readkey; closegraph; end.