Составить программу, реализующую трехмерное преобразование с фигурой Октаэдр

uses crt, graph;
const
{число вершин}
  n=8;                       { Вот этот массив на что указывает? 1..n-это кол-во вершин, а 1..3 - это что? }
type vvv=array[1..n,1..3] of real;
const
{массив вершин}
  vers: vvv=((-1,1,0), { откуда берут эти координаты для вершин параллелипипеда? }
             (-1,-1,0),
             (1,-1,0),
             (1,1,0),
             (-1,1,3),
             (-1,-1,3),
             (1,-1,3),
             (1,1,3));
{число ребер}
  m=12;
{массив ребер}
  rebr: array [1..m,1..3] of integer=((1,2,0), { Координаты ребер почему здесь эти цифры? }f
                                      (2,3,0),
                                      (3,4,0),
                                      (4,1,0),
                                      (1,5,0),
                                      (2,6,0),
                                      (3,7,0),
                                      (4,8,0),
                                      (5,6,0),
                                      (6,7,0),
                                      (7,8,0),
                                      (5,8,0));
{число граней}
  g=6;
{массив граней из ребер}
  gr1: array [1..g,1..4] of integer=((1,6,9,5), { И тут не понятно мне как они забивали }
                                     (2,7,10,6),
                                     (3,8,11,7),
                                     (4,5,12,8),
                                     (1,2,3,4),
                                     (9,10,11,12));
{массив граней из вершин}
  gr: array [1..g,1..4] of integer=((1,2,6,5),
                                    (2,3,7,6),
                                    (3,4,8,7),
                                    (4,1,5,8),
                                    (1,2,3,4),
                                    (5,6,7,8));
 
var i,j,k,v1,v2:integer;
    x1,y1,x2,y2:real;
    v:vvv;
 
{вычисляется смещение по оси OX}
procedure rotx(var vers:vvv;fi:real);
  var t:real;
  begin
    for i:=1 to n do
      begin
        t:=vers[i,2];
        vers[i,2]:=vers[i,2]*cos(fi)-vers[i,3]*sin(fi);
        vers[i,3]:=vers[i,3]*cos(fi)+t*sin(fi);
      end;
  end;
{вычисляется смещение по оси OY}
procedure roty(var vers:vvv;fi:real);
  var t:real;
  begin
    for i:=1 to n do
      begin
        t:=vers[i,1];
        vers[i,1]:=vers[i,1]*cos(fi)+vers[i,3]*sin(fi);
        vers[i,3]:=vers[i,3]*cos(fi)-t*sin(fi);
      end;
  end;
{вычисляется смещение по оси OZ}
procedure rotz(var vers:vvv;fi:real);
  var t:real;
  begin
    for i:=1 to n do
      begin
        t:=vers[i,1];
        vers[i,1]:=vers[i,1]*cos(fi)-vers[i,2]*sin(fi);
        vers[i,2]:=vers[i,2]*cos(fi)+t*sin(fi);
      end;
  end;
 
{построение фигуры при каждом повороте}
procedure show(col:word);
  var i,k:integer;
  begin
    v:=vers;
{вычисляются смещения}
    rotz(v,-1*pi/360*100);
    rotx(v,-1*pi/360*120);
    k:=50;
{происходит построение фигуры}
    for i:=1 to m do
      begin
{вычисляются координаты вершин}
        v1:=rebr[i,1];
        v2:=rebr[i,2];
        x1:=v[v1,1];
        y1:=v[v1,2];
        x2:=v[v2,1];
        y2:=v[v2,2];
{устанавливается цвет}
        setcolor(col);
{рисуются ребра}
        line(320+round(k*x1),240-round(k*y1),320+round(k*x2),240-round(k*y2));
{устанавливается цвет и рисуется вертикальная ось}
        setcolor(14);
        line(320,0,320,340);
      end;
  end;
{задается метка}
label 1;
var ch: char;
begin
{инициализация графики}
  i:=detect;
  initgraph(i,j,'');
  show(15);
{происходит врацение, пока не нажата клавиша}
1:   ch:=readkey;
   case ch of
{поворот вокруг оси ОХ по часовой стрелке}
     '1': begin
            show(0);
            rotx(vers,0.1);
            show(15);
            goto 1;
          end;
{поворот вокруг оси OZ против часовой стрелки}
     '2': begin
            show(0);
            rotz(vers,0.1);
            show(15);
            goto 1;
          end;
{поворот вокруг оси ОХ против часовой стрелки}
     '3': begin
            show(0);
            rotx(vers,-0.1);
            show(15);
            goto 1;
          end;
{повотор вокруг оси OY против часовой стрелки}
     '4': begin
            show(0);
            roty(vers,-0.1);
            show(15);
            goto 1;
          end;
{поворот вокруг оси OZ по часовой стрелке}
     '5': begin
            show(0);
            rotz(vers,-0.1);
            show(15);
            goto 1;
          end;
{поворот вокруг оси OY по часовой стрелке}
     '6': begin
            show(0);
            roty(vers,0.1);
            show(15);
            goto 1;
          end;
{отображение относительно XOZ и YOZ}
     '7': begin
            show(0);
            for i:=1 to n do
              begin
                vers[i,1]:=-vers[i,1];
                vers[i,2]:=-vers[i,2];
                vers[i,3]:=vers[i,3];
              end;
            show(15);
            goto 1;
          end;
{отображение относительно XOZ  и XOY}
     '8': begin
            show(0);
            for i:=1 to n do
              begin
                vers[i,1]:=vers[i,1];
                vers[i,2]:=-vers[i,2];
                vers[i,3]:=-vers[i,3];
              end;
            show(15);
            goto 1;
          end;
{отображение относительно XOY и YOZ}
     '9': begin
            show(0);
            for i:=1 to n do
              begin
                vers[i,1]:=-vers[i,1];
                vers[i,2]:=vers[i,2];
                vers[i,3]:=-vers[i,3];
              end;
            show(15);
            goto 1;
          end;
   end;
{закрытие графического режима}
  CloseGraph;
end.