Не отображается линия (ABC.NET)

[supervova]

Задача: "Нарисуйте ряд точек по направлению из левого нижнего угла в правый верхний".

Я решил так:
uses graphABC;
var
x, y, i: integer;
begin
x:= 10;
y:= 500;
setPencolor(clBlack);
repeat
PutPixel(x, y, clblack);
x:= x + 1;
y:= y + 1;
until x > 400;
end.

Не отображается линия, шаг минимален. Подскажите что не так?

[supervova]

Я затупок, начальная точка вылезла за пределы отображаемого окна, да ещё линия пошла внис по приращению Y, решение такое:
uses graphABC;
var
x, y, i: integer;
begin
x:= 10;
y:= 500;
repeat
PutPixel(x, y, clblack);
x:= x + 1;
y:= y - 1;
until x > 400;
end.