Изобразить прямоугольник с длиной основания L и высотой H, перемещающийся по диагонали экрана

uses crt,graph;
var gd,gm,x,y,x1,y1,L,h:integer;
begin
clrscr;
repeat
writeln('dlina от 10 до 320 L=');
readln(L);
until (L>=10)and(L<=320);
repeat
writeln('vysota от 10 до 240 H=');
readln(h);
until (h>=10)and(h<=240);
gd:=0;
initgraph(gd,gm,'');
x:=1;y:=1;
repeat
setcolor(12);
rectangle(x,y,x+L,y+h);
delay(100);
setcolor(0);
rectangle(x,y,x+L,y+h);
x:=x+round(12*getmaxX/getmaxY);
y:=y+round(16*getmaxY/getmaxX);
until (x>getmaxX-L-20)or(y>getmaxY-h-10);
setcolor(12);
rectangle(x,y,x+L,y+h);
delay(1000);
closegraph;
end.

uses crt,graphABC;
var x,y,x1,y1,L,h:integer;
begin
repeat
writeln('dlina от 10 до 320 L=');
readln(L);
until (L>=10)and(L<=320);
repeat
writeln('vysota от 10 до 240 H=');
readln(h);
until (h>=10)and(h<=240);
x:=1;y:=1;
hidecursor;
lockdrawing;
setbrushcolor(clred);
repeat
clearwindow;
rectangle(x,y,x+L,y+h);
sleep(50);
x:=x+round(3*windowwidth/windowheight);
y:=y+round(4*windowheight/windowwidth);
redraw;
until (x>windowwidth-L-20)or(y>windowheight-h-10);
rectangle(x,y,x+L,y+h);
sleep(1000);
end.

uses graphABC;
var x,y,L,h:integer;
begin
repeat
writeln('dlina от 10 до 320 L=');
readln(L);
until (L>=10)and(L<=320);
repeat
writeln('vysota от 10 до 240 H=');
readln(h);
until (h>=10)and(h<=240);
x:=1;y:=1;
lockdrawing;
setbrushcolor(clred);
repeat
clearwindow;
rectangle(x,y,x+L,y+h);
sleep(50);
x:=x+round(3*windowwidth/windowheight);
y:=y+round(4*windowheight/windowwidth);
redraw;
until (x>windowwidth-L-20)or(y>windowheight-h-10);
rectangle(x,y,x+L,y+h);
sleep(1000);
end.