переделать програму с паскаля на дельфи

[jusic]

Помогите переделать програму под Дельфи
Програма рисует по указаному алгоритму фрактал Чертовой лестницы)
Буду очень признательна за любую помощь=)

program ChL;

uses Crt, Graph;

const
max = 2187;

var
gd, gm : Integer;
C : array [0..max] of Integer;
i : Integer;
x, y : Integer;

procedure Draw(x: Integer; L: Word);

var
s : Word;

begin
if L > 0 then
begin
s := L div 3;
Draw(x, s);
Draw(x + 2*L, s);
end
else
C[x] := 1;
end;

Begin
gd := Detect;
for i:=0 to max do
C[i] := 0;
InitGraph(gd,gm,'c:\bp\bgi');
Draw(0, max);
for i := 1 to max do
C[i] := C[i-1] + C[i];
for i := 0 to max do
begin
x := Round(i/max*639);
y := Round(C[i]/C[max]*479);
Line(x, 479, x, 479 - y);
end;
ReadKey;
CloseGraph;
end.

[Z1000000]

Перевел. только кривой твой алгоритм.

else
C[x] := 1;
end;

Здесь реально может быть значение X большее 2187. Паскаль это глотает, а Дельфи ругается. Так - что пришлось изменить.

C : array [0..max*3] of Integer;

[jusic]

Огромное спасибо)))