Кто поможет переписать программу с графикой PascalABC на FreePascal? Или подскажите почему игра плохо работает - Free Pascal

program z4;
uses graphABC;
const n=9; kw=4; kbl=4;m=50;
var i,p:byte; key:char; t:array[1..11] of byte;
procedure clrBar(i:byte);
begin
SetPenColor(clwhite);SetPenWidth(3);
Circle(25+i*m,m+25,20) ;
FloodFill(25+i*m,m+25,clwhite);
end;
procedure drB(i:byte);
begin
SetPenColor(clBlack);SetPenWidth(1);
Circle(25+i*m,m+25,20) ;
FloodFill(25+i*m,m+25,clBlack);
end;
 
procedure drW(i:byte);
begin
SetPenColor(clBlack);SetPenWidth(1);
Circle(25+i*m,m+25,20) ;
end;
 
procedure drSt(i:byte);
begin
SetPenColor(clBlack);SetPenWidth(1);
line(25+i*m,110,25+i*m,140);
line(25+i*m,110,25+i*m+10,120);
line(25+i*m,110,25+i*m-10,120);
end;
 
procedure delSt(i:byte);
begin
SetPenColor(clWhite);SetPenWidth(3);
line(25+i*m,110,25+i*m,140);
line(25+i*m,110,25+i*m+10,120);
line(25+i*m,110,25+i*m-10,120);
end;
 
begin 
//сетка
for i:=1 to n do
  Rectangle(m*i,m,m*i+m,2*m);
//нач поз черных
for I:=1 to kw do 
begin 
Circle(25+i*m,m+25,20) ;
FloodFill(25+i*m,m+25,clBlack);
t[i]:=2;
end;
t[6]:=0;
// нач поз белых
for I:=1+5 to kw+5 do 
begin 
Circle(25+i*m,m+25,20) ;
t[i]:=1;
end;
drSt(5); p:=5; key:=#13;
 
writeln('Выбрать кружек - l/r');
writeln('Сделать ход - пробел');
writeln('Выход - E');
 
repeat
   read(key);
 //  key:=readkey;
   case key of
    'l': if p>1 then
         begin
          delSt(p); p:=p-1;  drSt(p);
          end;
          
      'r': if p<11 then
         begin
          delSt(p); p:=p+1;  drSt(p);
          end;
        
       ' ':begin
           if t[p]=2 then //если на черном
          begin
            if t[p+1]=0 then //рядом свободно
               begin
               clrBar(p);
               drB(p+1);
               t[p]:=0; t[p+1]:=2;
               end;
          
             if (t[p+1]>0)and (t[p+2]=0) then //рядом свободно
               begin
               clrBar(p);
               drB(p+2);
               t[p]:=0; t[p+2]:=2;
               end;
           
          end;
       
          if t[p]=1 then // если на белом
          begin
          if t[p-1]=0 then //рядом свободно
               begin
               clrBar(p);
               drW(p-1);
               t[p]:=0; t[p-1]:=1;
               end;
          
             if (t[p-1]>0)and (t[p-2]=0) then //рядом свободно
               begin
               clrBar(p);
               drW(p-2);
               t[p]:=0; t[p-2]:=1;
               end;
          
          end;
       end;
 
    end;//case
until key='e';
 
end.