Переделать грибок на снеговика(поворот вокруг заданной точки)

uses graphabc,crt;
const center=windowwidth div 2; p=10;
var ygol,d,xt,yt,th,tn,ox5,ox6,ox7,ox8,oy5,oy6,oy7,oy8,ox9,oy9,ox10,oy10, x,y,
ox1,ox2,ox3,ox4,oy1,oy2,oy3,oy4,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6, x7,y7,y8,x8,oxa,oya,oxb,oyb,oxc,oyc,oxd,oyd,oxe,oye,oxf,oyf,ox11,ox12,oy11,oy12,ox13,ox14,oy13,oy14,
x9,x10,y9,y10,xa,ya,xb,yb,xc,yc,xd,yd,xe,xf,ye,yf,x11,x12,y11,y12,x13,x14,y13,y14,x15,x16,y15,y16,x17,x18,y17,y18,ox15,ox16,oy15,oy16,ox17,ox18,oy17,oy18,ox19,ox20,oy19,oy20,ox21,ox22,oy21,oy22,
x19,x20,y19,y20,x21,x22,y21,y22: integer; f:real;
procedure setka;
begin
setpencolor(clblack); setpenwidth(2);
line(0,windowheight div 2,700,windowwidth div 2);
line(windowwidth div 2,0,windowwidth div 2,700);
end;
procedure tank;
begin
line(x1,y1,x2,y2);
line(x3,y3,x4,y4);
line(x5,y5,x6,y6);
line(x8,y8,x7,y7);
line(x11,y11,x12,y12);
line(x13,y13,x14,y14);
line(x15,y15,x16,y16);
end;
procedure uvel;
begin
clearwindow;
ox1:=x1;oy1:=y1;ox2:=x2;oy2:=y2;ox3:=x3;oy3:=y3;ox4:=x4;oy4:=y4;ox5:=x5;oy5:=y5;ox6:=x6;oy6:=y6;oxc:=xc;oyc:=yc;oxd:=xd;oyd:=yd;oxe:=xe;oye:=ye;oxf:=xf;oyf:=yf;
ox7:=x7;oy7:=y7;ox8:=x8;oy8:=y8; ox9:=x9; oy9:=y9;ox10:=x10;oy10:=y10;oxa:=xa;oya:=ya;oxb:=xb;oyb:=yb;ox11:=x11;ox12:=x12;oy11:=y11;oy12:=y12;
ox13:=x13;ox14:=x14;oy13:=y13;oy14:=y14;ox15:=x15;ox16:=x16;oy15:=y15;oy16:=y16;ox17:=x17;ox18:=x18;oy17:=y17;oy18:=y18;ox19:=x19;ox20:=x20;oy19:=y19;oy20:=y20;ox21:=x21;ox22:=x22;oy21:=y21;oy22:=y22;
x1:=round(center+(ox1-center) * cos(f) - (oy1 - center) * sin(f));
y1:=round(center+(oy1-center) * cos(f) + (ox1 - center) * sin(f));
x2:=round(center+(ox2-center) * cos(f) - (oy2 - center) * sin(f));
y2:=round(center+(oy2-center) * cos(f) + (ox2 - center) * sin(f));
x3:=round(center+(ox3-center) * cos(f) - (oy3 - center) * sin(f));
y3:=round(center+(oy3-center) * cos(f) + (ox3 - center) * sin(f));
x4:=round(center+(ox4-center) * cos(f) - (oy4 - center) * sin(f));
y4:=round(center+(oy4-center) * cos(f) + (ox4 - center) * sin(f));
x5:=round(center+(ox5-center) * cos(f) - (oy5 - center) * sin(f));
y5:=round(center+(oy5-center) * cos(f) + (ox5 - center) * sin(f));
x6:=round(center+(ox6-center) * cos(f) - (oy6 - center) * sin(f));
y6:=round(center+(oy6-center) * cos(f) + (ox6 - center) * sin(f));
x7:=round(center+(ox7-center) * cos(f) - (oy7 - center) * sin(f));
y7:=round(center+(oy7-center) * cos(f) + (ox7 - center) * sin(f));
x8:=round(center+(ox8-center) * cos(f) - (oy8 - center) * sin(f));
y8:=round(center+(oy8-center) * cos(f) + (ox8 - center) * sin(f));
x9:=round(center+(ox9-center) * cos(f) - (oy9 - center) * sin(f));
y9:=round(center+(oy9-center) * cos(f) + (ox9 - center) * sin(f));
x10:=round(center+(ox10-center) * cos(f) - (oy10 - center) * sin(f));
y10:=round(center+(oy10-center) * cos(f) + (ox10 - center) * sin(f));
xa:=round(center+(oxa-center) * cos(f) - (oya - center) * sin(f));
ya:=round(center+(oya-center) * cos(f) + (oxa - center) * sin(f));
xb:=round(center+(oxb-center) * cos(f) - (oyb - center) * sin(f));
yb:=round(center+(oyb-center) * cos(f) + (oxb - center) * sin(f));
xc:=round(center+(oxc-center) * cos(f) - (oyc - center) * sin(f));
yc:=round(center+(oyc-center) * cos(f) + (oxc - center) * sin(f));
xd:=round(center+(oxd-center) * cos(f) - (oyd - center) * sin(f));
yd:=round(center+(oyd-center) * cos(f) + (oxd - center) * sin(f));
xe:=round(center+(oxe-center) * cos(f) - (oye - center) * sin(f));
ye:=round(center+(oye-center) * cos(f) + (oxe - center) * sin(f));
xf:=round(center+(oxf-center) * cos(f) - (oyf - center) * sin(f));
yf:=round(center+(oyf-center) * cos(f) + (oxf - center) * sin(f));
x11:=round(center+(ox11-center) * cos(f) - (oy11 - center) * sin(f));
y11:=round(center+(oy11-center) * cos(f) + (ox11 - center) * sin(f));
x12:=round(center+(ox12-center) * cos(f) - (oy12 - center) * sin(f));
y12:=round(center+(oy12-center) * cos(f) + (ox12 - center) * sin(f));
x13:=round(center+(ox13-center) * cos(f) - (oy13 - center) * sin(f));
y13:=round(center+(oy13-center) * cos(f) + (ox13 - center) * sin(f));
x14:=round(center+(ox14-center) * cos(f) - (oy14 - center) * sin(f));
y14:=round(center+(oy14-center) * cos(f) + (ox14 - center) * sin(f));
x15:=round(center+(ox15-center) * cos(f) - (oy15 - center) * sin(f));
y15:=round(center+(oy15-center) * cos(f) + (ox15 - center) * sin(f));
x16:=round(center+(ox16-center) * cos(f) - (oy16 - center) * sin(f));
y16:=round(center+(oy16-center) * cos(f) + (ox16 - center) * sin(f));
x17:=round(center+(ox17-center) * cos(f) - (oy17 - center) * sin(f));
y17:=round(center+(oy17-center) * cos(f) + (ox17 - center) * sin(f));
x18:=round(center+(ox18-center) * cos(f) - (oy18 - center) * sin(f));
y18:=round(center+(oy18-center) * cos(f) + (ox18 - center) * sin(f));
x19:=round(center+(ox19-center) * cos(f) - (oy19 - center) * sin(f));
y19:=round(center+(oy19-center) * cos(f) + (ox19 - center) * sin(f));
x20:=round(center+(ox20-center) * cos(f) - (oy20 - center) * sin(f));
y20:=round(center+(oy20-center) * cos(f) + (ox20 - center) * sin(f));
x21:=round(center+(ox21-center) * cos(f) - (oy21 - center) * sin(f));
y21:=round(center+(oy21-center) * cos(f) + (ox21 - center) * sin(f));
x22:=round(center+(ox22-center) * cos(f) - (oy22 - center) * sin(f));
y22:=round(center+(oy22-center) * cos(f) + (ox22 - center) * sin(f));
tank; redraw;setka;
end;
begin
SetWindowCaption('Лаболаторная работа');
TextOut(180,50, 'Выполнил');
TextOut(180,80, 'Студент');
TextOut(180,110, 'Группы ПР3-16:');
TextOut(180,140, 'Auiieiee:  Iaeuieeia A.A.');
TextOut(180,290, 'Ia?ieoa e?ao? eeaaeoo');
read(d);
Clearwindow;
setka;
setwindowsize(700,700);
readln(x,y);
x1:=x+240; y1:=y+300; x2:=x+260; y2:=y+300; x11:=x+210; x12:=x+220;y11:=y+250;y12:=y+225;
x5:=x+210; x6:=x+290; y5:=y+250; y6:=y+250; x7:=x+260; x13:=x+220; x14:=x+280;y13:=y+225;y14:=y+225;
x8:=x+260; y7:=y+250; y8:=y+300; x9:=x+200; x10:=x+175; y9:=y+250; y10:=y+275; x15:=x+280;x16:=x+290;y15:=y+225;y16:=y+250;
xa:=x+175; xb:=x+200; ya:=y+275;yb:=y+300;  xc:=x+300;xd:=x+325;yc:=y+250;yd:=y+275; x17:=x+283;x18:=x+325;y17:=y+230;y18:=y+230;
x3:=x+240; y3:=y+300; x4:=x+240; y4:=y+250; xe:=x+325;xf:=x+300;ye:=y+275;yf:=y+300;
x19:=x+325;x20:=x+325;y19:=y+230;y20:=y+235; x21:=x+325;x22:=x+284;y21:=y+235;y22:=y+235;
tank;
writeln('Сдвиг?');
read(f);
f:=f*PI/180;
clearwindow;
setka;
uvel;
end.