Помогите с массивами в Pascal с модулем Graph

Помогите пожалуйста записать эту программу в массивах, программу написал но в массивах слабо разбираюсь. или объясните как ее записать? Если нужен файл 'belarus.jpg' он прикреплен. Спасибо
program Geograf1;
uses GraphABC;
var karta, A, S: integer;
begin
SetWindowSize(520,480);
karta := LoadPicture('belarus.jpg');
DrawPicture(karta,10,10);
setBrushColor(clRed);
S:=1700; A:= round(sqrt(S)); Rectangle (250, 225, 250+a, 225+a);
S:=500; A:= round(sqrt(S)); Rectangle(405,345,405+a,345+a);
S:=330; A:= round(sqrt(S)); Rectangle(375,215,375+A,215+A);
S:=340; A:= round(sqrt(S)); Rectangle(360,105,360+A,105+A);
S:=320; A:= round(sqrt(S)); Rectangle( 55,235,55+A,235+A);
S:=300; A:= round(sqrt(S)); Rectangle( 40,385,40+A,385+A);
end.