Помогите найти ошибку.. пожалуйста!!! надо срочно!!!!
uses crt,graphabc;
type arg=array [1..3] of real;
var x,y,x1,y1,r,j,dx,dy,i:integer;
u:colortype ;
t:real;
args:arg;
procedure drawLine(x1, y1, x2, y2: integer);
var
currentX, currentY: integer;
errorX, errorY: integer;
d, dx, dy, incX, incY: integer;
function min(args:arg):integer;
var i,n:integer;
begin
n:=1;
for i:=2 to 3 do
if args
else if(dx = 0) then incX := 0
else incX := -1;
if(dy > 0) then incY := 1
else if(dy = 0) then incY := 0
else incY := -1;
dx := abs(dx);
dy := abs(dy);
if(dy > dx) then d := dy
else d := dx;
currentX := x1;
currentY := y1;
u:=rgb(30,20,30);
while((currentX <> x2) OR (currentY <> y2)) do
begin
errorX := errorX + dx;
errorY := errorY + dy;
if(errorX >= d) then
begin
errorX := errorX - d;
currentX := currentX + incX;
end;
if(errorY >= d) then
begin
errorY := errorY - d;
currentY := currentY + incY;
end;
SetPixel(currentX, currentY, 0);
end;
end;
begin
writeln('введите координаты центра x y');
read(dx,dy);
writeln('введите радиус r');
read(r);
x:=0;
y:=r;
SETPixel(dx,dy+r,clblack);
SETPixel(dx,dy-r,clblack);
while (y<>0) do
begin
args[1]:=f(x1+1,y1,r1);
args[2]:=f(x1+1,y1-1,r1);
args[3]:=f(x1,y1-1,r1);
begin
drawLine(x,y,x+1,y);
x:=x+1;
end;
begin
drawLine(x,y,x+1,y-1);
x:=x+1;
y:=y-1;
end;
begin
drawLine(x,y,x,y-1);
y:=y-1;
end;
end;
end;
end;
end.