     var H,M,dPh,dTh,d                      :     Real;
     Var  Delta_L,Delta_n,J_i    :     Real;
     {------Для переходного режима-----}
      L_kom,L_tur,Pi_t,T_g,Kpd_t :     Real;
     {---------------------------------}
  Type
{     Mpar      = ARRAY[0..50] OF Real;   Здесь это совершенно нельзя
     Potok     = MPar;                           описывать
}
     R10       = ARRAY[1..10] OF Real;
     R6x11     = ARRAY[1..6,1..11] OF Real;
     GlobVar   = Array[1..30] of Real;
     GlobData  = Array[1..10] of Real;
  Const
     GlobDataMax = 10;
Var
  Ph,Cc,Co,Qt : Real;
  RsMas:GlobData;GtsMas:GlobData;
  GsMas:GlobData; IndGs,INdRs,IndGts: Byte;



     a                       :        R6x11;
     i,j                     :        Byte;
     Modl                    :        GlobVar; { Массив глобальных переменных }
     TIn,PIn,GIn,AlfaIn,qtIn       :        Real; { Параметры потока }
     TOut,POut,GOut,AlfaOut,qtOut  :        Real; { Параметры потока }
     x1                             :        Real;
     c                             :        R10;
     PiKMas                        :        GlobData;
    { GbMas                         :        GlobData;}
     PsMas                         :        GlobData;
    { GtMas                         :        GlobData;}
     IndPIk                        :        Byte;
    { IndGb                         :        Byte;}
     IndPs                         :        Byte;
    { IndGt                         :        Byte;}


     sss                     :        Array[1..10] of String;
