Переписать код из Turbo Pascal в Pascal ABC

program zadacha;
uses crt, graph;
const m=150;
var gd,gm,i,j,s1,s2,c1,c2: integer; z,x,y: real;
t: array [0..640] of pointtype;
begin gd:=detect; initgraph(gd,gm,'C:\tp7\bgi\');
cleardevice;
s1:=getmaxx div 2; s2:=getmaxy div 2;
line(0,s2,getmaxx,s2); line(s1,0,s1,getmaxy);
for c1:=-3 to 3 do begin for c2:=-3 to 3 do begin for i:=0 to 640 do begin
z:=(i-s1)/m; x:=c1*exp(-2*z)+c2*exp(-5*z);
y:=0.5*c1*exp(-2*z)-c2*exp(-5*z);
t[i].x:=s1+round(x*m); t[i].y:=s2-round(y*m);
end; drawpoly(getmaxx,t); end; end;
readln; closegraph; end.

uses graphABC;
const
  m = 150;
 
var
  i, j, s1, s2, c1, c2: integer;
  z, x, y: real;
  t: array of point;
 
begin
  setLength(t, 640);
  SetWindowSize(640, 480);
  clearwindow;
  s1 := WindowWidth div 2;
  s2 := WindowHeight div 2;
  line(0, s2, WindowWidth, s2);
  line(s1, 0, s1, WindowHeight);
  for c1 := -3 to 3 do 
  begin
    for c2 := -3 to 3 do 
    begin
      for i := 0 to 639 do 
      begin
        z := (i - s1) / m;
        x := c1 * exp(-2 * z) + c2 * exp(-5 * z);
        y := 0.5 * c1 * exp(-2 * z) - c2 * exp(-5 * z);
        t[i].x := s1 + round(x * m);
        t[i].y := s2 - round(y * m);
      end;
      polygon(t); 
      Sleep(10);
    end;
  end;
end.