Переписать программу с Turbo Pascal на Pascal ABC - Pascal ABC - Ответ 7381603

uses graphabc,crt;
const n=20; //ðàçìåð ìàññèâà
const
 colors:array [1..4] of integer=(clYellow,clGreen,ClBlue,clRed);
type stb=record //òèï ñòîëáåö=çàïèñü
         x,y,h,c:integer //ïîëÿ êîîðäèíàòû ëåâîãî íèæíåãî óãëà, âûñîòà è öâåò
         end;
     mas=array[1..n] of stb;//òèï ìàññèâà
procedure draw(st:stb;w:integer); //ðèñîâàíèå 1 ñòîëáèêà, w-øèðèíà
begin
//  SetPenColor(st.c);
  setbrushcolor(st.c);
  setbrushstyle(bsSolid );
//  setfillstyle(1,st.c);//ñïëîøíàÿ çàëèâêà óêàçàííûì öâåòîì
  FillRect(st.x,st.y-st.h,st.x+w,st.y);//çàêðàøåííûé ïðÿìîóãîëüíèê
end;
var arr:mas;
    i,j,k,w,y,x,bh,bc:integer;
    f:boolean;
begin
randomize;
w:=windowWidth div (n+1);//øèðèíà ñòîëáöîâ ñ ó÷åòîì îòñòóïîâ ñëåâà è ñïðàâà
y:=windowHeight-50;//îñíîâàíèå ñòîëáöîâ
j:=0;
for i:=1 to n do //ïðèñâîåíèå çíà÷åíèé
 begin
  arr[i].y:=y;//êîîðäèíàòà íèçà
  arr[i].h:=10+random(y-20);//âûñîòà
  arr[i].x:=i*w;//êîîðäèíàòà ëåâîé ñòîðîíû
  if j>=4 then
    j:=1
  else
    inc(j);
  arr[i].c:=colors[j]; //öâåò
//  if arr[i].c mod 8=0 then arr[i].c:=5;
  draw(arr[i],w)//ðèñîâàíèå ñòîëáöà
 end;
for i:=1 to n-1 do//ñîðòèðîâêà âûáîðîì ïî àâñîòå ñòîëáöîâ, ýòî ñàì èçó÷àé
 begin
  x:=i;
  for j:=i+1 to n do
  if arr[j].h<arr[x].h then x:=j;
  bh:=arr[i].h;
  arr[i].h:=arr[x].h;
  arr[x].h:=bh;
  bc:=arr[i].c;
  arr[i].c:=arr[x].c;
  arr[x].c:=bc;
  delay(500); //ïîñëå êàæäîãî øàãà çàäåðæêà
  clearwindow;//î÷èñòêà ýêðàíà
  for k:=1 to n do
  draw(arr[k],w); //ðèñîâàíèå íîâîãî ìàññèâà
 end;
   textout(100,20,'Sortirovka zavershena, press Enter');
 readln
 end.