почему не выполняется 3-е движение? Код на Pascal ABC.NET

[Рафиль]

uses GraphABC;

var x,y:integer;
begin




Window.Title := 'Движение точки';
Brush.Color := clBlack;

x:=50;
for y:= 100 to 400 do
begin
Window.Clear(clWhite);
Circle(x,y,2);
sleep(5);
end;

x:=0;
y:=0;

y:=400;
for x:=50 to 300 do
begin
Window.Clear(clWhite);
Circle(x,y,2);
sleep(5);
end;

y:=0;
x:=0;

x:=300;
for y:=400 to 50 do
begin
Window.Clear(clWhite);
Circle(x,y,2);
sleep(5);
end;


end.

[Zer0]

for y:=400 to 50 do

поменять to на downto