У меня задача по двухмерной графике я пишу так
procedure Turn(a:coords;f:real;tx1,ty1:integer;var a1:coords;var am:coords);
var i,tx,ty:integer;
begin
tx:=round((a[1,2]+a[1,16])/2);
ty:=round((a[2,1]+a[2,2])/2);
for i:=1 to 23 do begin
a1[1,i]:=round(a[1,i]*cos(f)-a[2,i]*sin(f)+(-tx*cos(f)+ty*sin(f)+tx+(tx1-tx)));
a1[2,i]:=round(a[1,i]*sin(f)+a[2,i]*cos(f)+(-tx*sin(f)+(-ty)*cos(f)+ty+(ty1-ty)));
end;
beginmatrix(a1,am);
end;

..........................
fi:=0;
repeat
#83:begin
fi:=fi+1;
Turn(at1,fi/57.7,tx1,ty1,at,am1);
end;
#79:begin
fi:=fi-1;
Turn(at1,fi/57.7,tx1,ty1,at,am1);
end;
#32:begin
OutTextXY(10,10,'Vvedite coordinati tochki vrasheniya');
readln(tx1,ty1);
fi:=0;
beginmatrix(a,am);
end;
end;
cleardevice;
until Key=#27;
end;
вроде все нормально, но мой объект вращается чуть ли не на 90-180 градусов. Алгоритм верный я проверял

спасибо теперь все работает
2Zeta
та хто ж тебя знал что ты поможешь