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

program Kr_D;
Uses Graph;
Var a, S : Real; I : Byte; G, M : Integer;
    Xc, Yc, R : Integer; {координаты центра круга и его радиус}
    F : Text; {файл содержит данные для построения диаграммы}
    Alpha : Integer; {угол, соответствующий очередной величине}
    SAngle : Integer; Stroka : String;
Begin
    Assign(F, '1.dat'); Reset(F);
    S := 0; {сумма элементов последовательности}
    While Not Eof(F) Do
    begin Readln(F, a);  S := S + a end;
    reset(f); G := detect; M := 0;
    initgraph(G, M, '');  Xc := GetMaxX Div 2; Yc := GetMaxY Div 2;
    R := 100; SAngle := 0; i := 1;
    While Not Eof(f) Do begin
        Readln(F, a); Alpha := round(A / S * 360); {вычисление угла}
        setcolor(i mod 16 + 1); setfillstyle(1, i mod 16 + 1);
{построение сектора, соответствующего величине}
    sector(Xc, Yc, SAngle, SAngle + Alpha, R, R);
        SAngle := SAngle + Alpha; i:= i + 1;
        {укажем, какому цвету какая величина соответствует}
        bar(Xc+200, Yc-250+(i-1)*20, Xc+220, Yc-250+(i-1)*20+15);
        str(a:8:2, stroka);
        outtextxy(Xc + 230, Yc — 250 + 5 + (i — 1) * 20, stroka) end;
    readln; close(F); closegraph End.

program Stol_D;
Uses Graph;
Var a, xmax : Real; I, n : Byte; G, M : Integer;
    F : Text; {файл содержит данные для построения диаграммы}
    Stroka : String;
    Xlv, Ylv, Xpn, Ypn : Integer; {координаты окна вывода диаграммы}
Begin
    Assign(F, '1.dat'); Reset(F);
    if not eof(f) then begin readln(f, xmax); n:= 1 end else n := 0;
    While Not Eof(F) Do
    begin Readln(F, a);  if a > xmax then  xmax := a; n := n + 1 end;
    reset(f); G := detect; M := 0;
    initgraph(G, M, '');  Xlv := 50; Ylv := 50; Xpn:= GetMaxX-100;  Ypn:= GetMaxY-50;
    i:= 0; {номер столбца}
    While Not Eof(f) Do
    begin
        Readln(F, a);
        setcolor(i mod 16 + 1); setfillstyle(1, i mod 16 + 1);
        {очередной столбец}
    bar(round(Xlv+i*(Xpn-Xlv)/n), Ypn,
            round(Xlv+(i+1)*(Xpn-Xlv)/n), round(Ypn-(Ypn-Ylv)/xmax*a));
        i:= i + 1;
        {укажем, какому цвету какая величина соответствует}
        bar(getMaxx-70, 50+(i-1)*20, getMaxx-50, 50+(i-1)*20+15);
        str(a:8:2, stroka);
        outtextxy(getMaxx-40, 50+(i-1)*20+8, stroka);
    end;
    readln; close(F); closegraph
End.