Перевод из turbo Pascal в PascalABC

Program sharik;
Uses graph, crt;
 
Procedure game(t: word);
Var gd, gm, x0, y0, x1, score: integer;
    x, y, dx: array[1..3] of integer;
    s: string[16];
Const r = 5;
Begin
Randomize;
gd := Detect;
InitGraph(gd, gm, '');
x0 := GetMaxX;
y0 := GetMaxY;
For i := 1 to t do
begin
    x[i] := 100 + 2 * r + Random(300);
    y[i] := 60 * (i - 1);
    dx[i] := r * Random(3);
end;
x1 := 200;
score := 0;
Repeat
    {Отрисовка}
 
    ClearViewPort;
    {Игровое поле}
    SetColor(15);
    Line(100, 0, 100, y0);
    Line(x0 - 100, 0, x0 - 100, y0);
    {Корзина}
    SetColor(8);
    MoveTo(x1, 420);
    LineTo(x1 + 40, 420);
    LineTo(x1 + 35, 460);
    LineTo(x1 + 5, 460);
    LineTo(x1, 420);
    {Шарик}
    SetColor(9);
    For i := 1 to t do Circle(x[i], y[i], 2 * r);
    {Счет}
    Str(score, s);
    s := 'Score: ' + s;
    OutTextXY(10, 10, s);
 
    {Расчет передвижения}
 
    {Смещение корзины}
 
    if keypressed then
    begin
        b := readkey;
        if b = #0 then
        begin
            b := b + readkey;
            case b[2] of
                #77: if x1 < 500 then x1 := x1 + 15;
                #75: if x1 > 100 then x1 := x1 - 15;
            end;
        end;
    end;
    {Проверка на удар о стену}
    For i := 1 to t do if (x[i] < 100 + 2 * r) or (x[i] >= x0 - (100 + 2 * r)) then dx[i] := -dx[i];
    {Проверка на попадание в корзину}
    For i := 1 to t do
    begin
        if y[i] >= 425 then
        begin
            if (x[i] + 2 * r >= x1) and (x[i] - 2 * r <= x1 + 40) then score := score + 1;
            x[i] := 100 + 2 * r + Random(300);
            y[i] := 60 * (i - 1);
            dx[i] := r * Random(3);
        end;
    end;
    {Смещение шарика}
    For i := 1 to t do
    begin
        x[i] := x[i] + (dx[i] * t);
        y[i] := y[i] + (r *t);
    end;
    Delay(100);
Until b[1] = #27;
 
Closegraph;
end;
{-------------------------------------------}
End.