Составить программу движения двух точек по окружности в противоположные стороны

uses crt;
const n=20;{количество лет}
var b:array[1..n] of byte;{массив значений бедствий}
    i,j:integer;
begin
clrscr;
randomize;
writeln('Количество бедствий по годам:');
for i:=1 to n do
 begin
  write(i+1959,'  ');{год}
  b[i]:=random(39)+43;{случайные числа из интервала 43-81}
  write(b[i]);
  writeln;
 end;
readln;
clrscr;
for i:=1 to n do
 begin
  textcolor(i mod 15+1);{номер цвета остаток от деления номера на 15
(количество возможных цветов, +1, чтоб не было черного цвета)}
  write(i+1959);{пишем год}
  gotoXY(6,whereY);{ставим курсор в позицию 6 в текущей строке(whereY)}
  for j:=1 to 4*round(b[i]/10) do write(#219);{выводим большие квадратики, масштаб подбираем методом тыка}
  write('  ',b[i]);{в конце выводим количество бедствий}
  writeln;
 end;
readln
end.

uses crt;
var s:string;
    i:integer;
begin
clrscr;
write('Введите слово: ');
readln(s);
clrscr;
gotoXY(1,25);{ставим курсор в первую позицию последней строки}
write(s);{выводим слово}
for i:=1 to length(s) do{в цикле по количеству букв}
 begin
  gotoXY(i,25);{в очередную позицию последней строки}
  write(' ');{вводим пробел}
  gotoXy(i,1);{в очередную позицию первой строки}
  write(s[i]);{выводим очередной символ]
  delay(500);{задержка 0,5 секунды, если у Вас этого не будет, а все промелькнет, 
значит у Вас негодный модуль TPL, то напишите delay(5000 или больше, подберете)}
 end;
readln
end.

uses crt,graph;
var x0,y0,x1,y1,x2,y2,r,gd,gm,i:integer;
    c:char;
    c1,c2:integer;
begin
clrscr;
x0:=320;y0:=240;{центр экрана, можно написать x0:=GetMaxX div 2;yo:=GetMaxY div 2;}
r:=150;{радиус окружности}
gd:=detect;
initgraph(gd,gm,'');
i:=1;{начальное значение счетчика угла поворота}
repeat{в бесконечном цикле повторяем}
x1:=x0+round(r*sin(i*pi/180));{это геометрия-уравнение окружности, по часовой стрелке}
y1:=y0-round(r*cos(i*pi/180));
x2:=x0+round(r*sin(-i*pi/180));{против часовой}
y2:=y0-round(r*cos(-i*pi/180));
putpixel(x1,y1,c1);
putpixel(x2,y2,c2);
delay(50);{если модули нормальные, это 50млс, если нет, увеличь в 100 или больше раз}
putpixel(x1,y1,0);
putpixel(x2,y2,0);
i:=i+1;
if keypressed then{если нажата клавиша}
 begin
  c:=readkey;{читаем ее символ}
  case c of
 '0'..'9':begin{если цифры, меняем цвет}
          c1:=ord(c)-46;
          c2:=ord(c)-47;
          end;
  #27:exit;{если Esc-выход}
  end;
 end
else{если не нажата, цвета задаем на всю программу}
 begin
  c1:=14;
  c2:=12;
 end;
until c=#27;
closegraph;
end.