Mine

{.include SRL/SRL.scar}
var i : integer;
Procedure Offset(var x,y : integer; offNorth, OffWest : integer);
begin
x := Round(- OffNorth * sine(I)) +  Round(OffWest * sine(I-90)) + x;
y := Round( OffNorth * cose(I)) + -Round(OffWest * cose(I-90)) + y;
end;

begin
For I := 0 to 359 do
begin
X := 646;
Y := 84 ;
Offset(X, Y, 10, 10);
WriteLn( inttostr(x) + ',' + inttostr(y));
end;
end.