Перевести в Pascal ABC

uses graph,crt;
var device,mode,x,y:integer;
    p:pointer;
    size:word;
 
begin
  device:=0;
  initgraph(device,mode,'d:\program\tp\bgi');
  line(615,1,595,40);
  line(595,40,615,80);
  line(615,80,635,40);
  line(635,40,615,1);
    size:=imagesize(590,0,636,81);
    getmem(p,size);
    getimage(590,0,636,81,p^);
      x:=590;
      repeat
      putimage(x,y,p^,0);
      delay(300);
      putimage(x,y,p^,0);
      x:=x-1; y:=y+1;
      until y>480;
      closegraph;
end.

uses graphABC;
procedure romb(x,y:integer);
begin
line(x-20,y,x,y-40);
line(x,y-40,x+20,y);
line(x+20,y,x,y+40);
line(x,y+40,x-20,y);
end;
var x,y:integer;
begin
setwindowsize(460,500);
centerwindow;
x:=windowwidth-20;
y:=40;
lockdrawing;
repeat
clearwindow;
romb(x,y);
sleep(20);
x:=x-1;
y:=y+1;
redraw;
until y>=windowheight-40;
end.

uses graphABC;
type Tpoint=record
            x,y:integer;
            end;
procedure Zvezda(x,y:integer);
var  i:integer;
     p:array[1..11]of TPoint;
     a:real;
begin
a:=pi/2;
for i:=1 to 10 do
 begin
  if i mod 2=0 then
   begin
    p[i].x:=x+round(15*cos(a)/2);
    p[i].y:=y-round(15*sin(a)/2);
   end
  else
   begin
    p[i].x:=x+round(20*cos(a));
    p[i].y:=y-round(20*sin(a));
   end;
  a:=a+pi/5;
 end;
p[11]:=p[1];
setpencolor(clRed);
setbrushcolor(clRed);
polygon(p,11);
end;
 
var x,y:integer;
begin
setwindowsize(500,500);
centerwindow;
x:=windowwidth-20;
y:=20;
lockdrawing;
repeat
clearwindow;
zvezda(x,y);
sleep(20);
x:=x-1;
y:=y+1;
redraw;
until y>=windowheight-20;
end.