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

uses graph,crt;
const n=20; //размер массива
type stb=record //тип столбец=запись
         x,y,h,c:integer //поля координаты левого нижнего угла, высота и цвет
         end;
     mas=array[1..n] of stb;//тип массива
procedure draw(st:stb;w:integer); //рисование 1 столбика, w-ширина
begin
setfillstyle(1,st.c);//сплошная заливка указанным цветом
bar(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;
initgraph(i,j,'');
w:=getmaxX div (n+1);//ширина столбцов с учетом отступов слева и справа
y:=getmaxY-50;//основание столбцов
for i:=1 to n do //присвоение значений
 begin
  arr[i].y:=y;//координата низа
  arr[i].h:=10+random(y-20);//высота
  arr[i].x:=i*w;//координата левой стороны
  arr[i].c:=i+1;/свет
  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); //после каждого шага задержка
  cleardevice;//очистка экрана
  for k:=1 to n do
  draw(arr[k],w); //рисование нового массива
 end;
 outtextXY(100,20,'Sortirovka zavershena, press Enter');
 readln
 end.

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.

setbrushstyle(bsClear);
setfontsize(12);
textout(100,20,'Сортировка завершена');