Помогите пожалуйста
С оператором for

Около стены наклонно стоит палка длиной 4.5 м. Нижний конец находится на расстоянии 3 м от стены. Он начинает скользить в плоскости перпендикулярной стене. Определить значение угла между палкой и полом (в градусах) с момента начала скольжения до падения палки через каждые 0.2 м.

Нужно именно с оператором for

Держиuses crt;var d,r,x,dx,h,u:real;beginclrscr;d:=4.5;r:=3;dx:=0.2;x:=r;repeat  h:=sqrt(d*d-x*x);  u:=arctan(h/x);  writeln('x=',x:4:1,' Угол=',u*180/pi:0:1,#248);  x:=x+dxuntil x>d;readlnend.