Рекурсивная программа в Dephi:множество кантора

[Katya_Pesec]

дан исходный код в паскале..там он не работает,т.к. не находит необходимых unit..необходима программа в делфи...Помогите кто чем может!!
Вот исходный код,с учебника Немнюгина
program Cantor;


{$S+}
uses
SysUtils,
Crt,
Graph,
graphs;

var
ch:Char;
const
min.size=1;
procedure draw (x,y:integer;size:word);
var
s:word;
begin
if size < min_size then
begin
s:=size div2;
draw(x-size,y+size,s);
draw(x-size,y-size,s);
draw(x+size,y+size,s);
draw(x+size,y-size,s);
end;
rectangle(x-size,y-size,x+size,y+size);
bar(x-size+1,y-size+1,x+size-1,y+size-1);
end;

begin
open_graph:
SetFillStyle(solidfill,black);
SetColor(white);
draw(GetMaxX div2,GetMaxY div2,GetMaxY div4);
OutText XY(265,235,'Press <Spase>');
ch:=ReadKey;
SetColor(black);
SetWriteMode(xorput);
draw(GetMaxX div2,GetMaxY div2,GetMaxY div4);
SetColor(white);
OutText XY(265,235,'Press <Spase>');
ch:=ReadKey;
close_graph;

end.