Растяжение фигуры по оси Y

Uses Graph, crt;
Var
Gd, Gm : Integer;
figura : Array [1..21] Of PointType;
i,n:integer;
 
Begin
figura[1].X:=150; figura[1].Y:=200;
figura[2].X:=50; figura[2].Y:=250;
figura[3].X:=150; figura[3].Y:=300;
figura[4].X:=250; figura[4].Y:=250;
figura[5].X:=150; figura[5].Y:=200;
figura[6].X:=130; figura[6].Y:=210;
figura[7].X:=70; figura[7].Y:=210;
figura[8].X:=70; figura[8].Y:=240;
figura[9].X:=50; figura[9].Y:=250;
figura[10].X:=70; figura[10].Y:=260;
figura[11].X:=70; figura[11].Y:=290;
figura[12].X:=130; figura[12].Y:=290;
figura[13].X:=150; figura[13].Y:=300;
figura[14].X:=170; figura[14].Y:=290;
figura[15].X:=230; figura[15].Y:=290;
figura[16].X:=230; figura[16].Y:=260;
figura[17].X:=250; figura[17].Y:=250;
figura[18].X:=230; figura[18].Y:=240;
figura[19].X:=230; figura[19].Y:=210;
figura[20].X:=170; figura[20].Y:=210;
figura[21].X:=150; figura[21].Y:=200;
Gd:=Detect;
InitGraph(Gd, Gm, '');
If GraphResult <> grOk Then Halt(1);
DrawPoly(SizeOf(figura) Div SizeOf(PointType), figura);
readln;
CloseGraph;
 
 
clrscr;
InitGraph(Gd, Gm, '');
for i:=1 to 21 do
begin
n:=figura[i].y;
figura[i].y:=figura[i].X;
figura[i].X:=n;
end;
If GraphResult <> grOk Then Halt(1);
DrawPoly(SizeOf(figura) Div SizeOf(PointType), figura);
readln;
CloseGraph;
End.

uses graph;
const m=21;{треугольник}
      n=3;{размер матриц коэффициентов}
type mas=array[1..m] of real;
     mtr=array[1..n,1..n] of real;
var xa,ya,xb,yb:mas;
    a,r:mtr;
    xc,yc:integer;{центр экрана}
    ms:real;{масштаб для перевода реальных координат в экранные}
    i,j,k:byte;{счетчики циклов}
    s:string;{строка для вывода текста}
 
procedure Real_coor;{задание случайных координат вершин}
begin
xa[1]:=150; ya[1]:=100;
xa[2]:=50; ya[2]:=150;
xa[3]:=150; ya[3]:=200;
xa[4]:=250; ya[4]:=150;
xa[5]:=150; ya[5]:=100;
xa[6]:=130; ya[6]:=110;
xa[7]:=70; ya[7]:=110;
xa[8]:=70; ya[8]:=140;
xa[9]:=50; ya[9]:=150;
xa[10]:=70; ya[10]:=160;
xa[11]:=70; ya[11]:=190;
xa[12]:=130; ya[12]:=190;
xa[13]:=150; ya[13]:=200;
xa[14]:=170; ya[14]:=190;
xa[15]:=230; ya[15]:=190;
xa[16]:=230; ya[16]:=160;
xa[17]:=250; ya[17]:=150;
xa[18]:=230; ya[18]:=140;
xa[19]:=230; ya[19]:=110;
xa[20]:=170; ya[20]:=110;
xa[21]:=150; ya[21]:=100;
end;
 
procedure Picture(x,y:mas;c:integer);{рисование треугольника с-цвет линий}
begin
setcolor(c);
for i:=1 to m do lineto(round(x[i]), round(y[i]));
end;
 
procedure Ed; { присвоение матрице R значения единичной }
begin
for i:=1 to n do
 begin                             {  1 0 0  }
  for j:=1 to n do  r[i,j]:=0;     {  0 1 0  }
  r[i,i]:=1;                       {  0 0 1  }
 end;
end;
procedure Mult; {умножение матриц А и R:  R = B = A*R }
var b:mtr;
    z:real;
begin
for i:=1 to n do
for j:=1 to n do
 begin
  z:=0;
  for k:=1 to n do
  z:=z+a[i,k]*r[k,j];
  b[i,j]:=z
 end;
for i:=1 to n do
for j:=1 to n do
r[i,j]:=b[i,j]
end;
procedure Scale(sx,sy:real); {расчет матриц А и R для масштабирования}
begin                        {фигуры: по оси Х - умножение на sx,  по оси Y - на sy}
for i:=1 to 3 do
for j:=1 to 3 do a[i,j]:=0;   {  sx 0  0  }
a[1,1]:=sx;                   {  0  sy 0  }
a[2,2]:=sy;                   {  0  0  1  }
a[3, 3]:=1;
Mult;
end;
 
procedure New_XY;{расчет новых координат фигуры по исходным}
begin           {с использованием матрицы преобразования R}
for i:=1 to m do
 begin
  xb[i]:=xa[i]*r[1, 1]+ ya[i]*r[1, 2]+ r[1, 3];
  yb[i]:=xa[i]*r[2, 1]+ ya[i]*r[2, 2]+ r[2, 3]
 end;
 moveto(round(xb[1]), round(yb[1]))
end;
 
 
begin
randomize;
initGraph(xc,yc,'');
xc:=getmaxX div 2; yc:=getmaxY div 2; { центр экрана }
ms:=(yc-30)/20;
{нарисуем оси}
line(0,yc,getmaxX,yc);{оси}
line(xc,0,xc,getmaxY);
for i:=1 to 20 do{максимальное количество засечек в одну сторону}
if i mod 2=0 then
  begin
    line(xc-3,yc-round(i*ms),xc+3,yc-round(i*ms));{засечки на оси У}
    line(xc-3,yc+round(i*ms),xc+3,yc+round(i*ms));
    {подпись оси У}
    str(i,s);
    outtextXY(xc-20,yc-round(i*ms),s);{соответственно засечкам}
    outtextXY(xc-25,yc+round(i*ms),'-'+s);
    line(xc+round(i*ms),yc-3,xc+round(i*ms),yc+3); {засечки на оси Х}
    line(xc-round(i*ms),yc-3,xc-round(i*ms),yc+3);
    {подпись оси Х}
    outtextXY(xc+round(i*ms),yc+10,s);
    outtextXY(xc-round(i*ms),yc+10,'-'+s);
  end;
{центр}
outtextXY(xc+5,yc+10,'0');
{{подписи концов осей}
outtextXY(getmaxX-10,yc-10,'X');
outtextXY(xc+5,10, 'Y');
moveto(150,100);
Real_coor;
Picture(xa,ya,12);
setcolor(15);
outtextXY(xc+80,20,'Press Enter');
readln;
Ed;
Scale(1,2);    { растягивание по оси Y }
New_XY;
Picture(xb,yb,14);
readln
end.