Организовать вращение отрезка вокруг своего центра - Pascal ABC

Формулировка задачи:

Организовать вращение отрезка вокруг своего центра. Помогите!

Решение задачи: «Организовать вращение отрезка вокруг своего центра»

Листинг программы

uses GraphABC;
const  r=200;
var  c:integer; //центр экрана
     u,x,y:real;//угол  поворота и координаты концов единичного отрезка
begin
setwindowsize(r+50,r+50);
centerwindow;
c:=windowwidth div 2;
lockdrawing;
setpenwidth(3);
u:=0;
repeat
clearwindow;
x:=-sin(u);
y:=cos(u);
setpencolor(clRed);
line(c+round(r*x/2),c+round(r*y/2),c-round(r*x/2),c-round(r*y/2));
setpencolor(clBlue);
circle(c,c,2);
u:=u+0.01;
redraw;
sleep(5);
until false;
end.

Объяснение кода листинга программы

Установка размера окна и его центровка с помощью функции setwindowsize и centerwindow соответственно.
Установка переменной c равной половине ширины окна с помощью windowwidth и div.
Блокировка рисования с помощью lockdrawing.
Установка ширины пера в 3 с помощью setpenwidth.
Установка угла поворота u равным 0.
Повторяющийся цикл от 0 до 2*pi (360 градусов) с шагом 0.01 с помощью repeat..until и u:=u+0.01.
Очистка окна перед рисованием с помощью clearwindow.
Вычисление координат x и y для концов отрезка с помощью -sin(u) и cos(u) соответственно.
Рисование отрезка с помощью функции line, используя вычисленные координаты.
Рисование синей точки в центре отрезка с помощью функции circle, используя вычисленные координаты и радиус 2.
Пауза в 5 миллисекунд с помощью sleep(5).
Окончание цикла при достижении угла 2*pi с помощью until false.
Завершение программы с помощью end.