Подскажите где ошибка:

program test;
uses graph;
var
 x,y,r,a:integer;
begin
r:=20;
a:=2;
 repeat
  a:=a+2;
  x:=sin(a)*r;
  y:=cos(a)*r;
  putpixel(x,y,white);
 until a:=320;
end.

Знаю в прошлой теме обьяснили, но можете ли вы исправить ошибку и написать правильный скрипт!

значение от sin cos имеют вещественный тип.

  x:=Trunc(sin(a)*r);
  y:=Trunc(cos(a)*r);