Составьте программу, демонстрирующую равномерное движение бруска вниз по наклонной плоскости

program skorost;
Uses crt, GraphABC;
Const
g=9.81;
a=pi/3;
var
x1,y1,x2,y2,x3,y3:integer;
begin
SetWindowSize(800,600);
Line(100,200,100,500);
Line(100,500,700,500);
Line(100,200,700,500);
Line(120,160,100,200);
Line(100,200,180,240);
Line(180,240,200,200);
Line(200,200,120,160);
end.

uses graphABC;
type point=record
           x,y:integer;
           end;
const x1=50;y1=50;
      x2=windowwidth-50;y2=windowheight-50;
procedure fon;
var i:integer;
begin
setpenwidth(3);
rectangle(x1,y1,x2,y2);
setpenwidth(1);
for i:=1 to 39 do
line(x1+20*i,y1,x1+20*i,y2);
for i:=1 to 29 do
line(x1,y1+20*i,x2,y1+20*i);
setfontsize(14);
setfontstyle(fsBold);
textout(x1,y1-30,'0');
for i:=1 to 8 do
textout(x1+i*100-20,y1-30,inttostr(i*100));
for i:=1 to 5 do
textout(x1-50,y1+i*100-20,inttostr(i*100));
setpenwidth(3);
line(x1+100,y1+200,x2-100,y2-100);
line(x1+100,y1+200,x1+100,y2-100);
line(x1+100,y2-100,x2-100,y2-100);
end;
procedure brus(x,y:integer);
var p:array[1..5] of point;
begin
p[1].x:=x;p[1].y:=y;
p[2].x:=p[1].x-20;p[2].y:=p[1].y+40;
p[3].x:=p[1].x-100;p[3].y:=p[1].y;
p[4].x:=p[3].x+20;p[4].y:=p[3].y-40;
p[5]:=p[1];
setpenwidth(2);
polyline(p,5);
end;
var x,y:integer;
begin
setwindowsize(900,700);
centerwindow;
x:=x1+200;
y:=y1+200;
fon;
brus(x,y);
lockdrawing;
repeat
clearwindow;
fon;
brus(x,y);
sleep(50);
x:=x+2;
y:=y+1;
redraw;
until x>=x2;
end.