Добавление статического массива в процедуру

{В подпрограмме ниже расчитывается средняя площадь поверхности
  горения навески воспламенительного состава}
  procedure subroutine_svosp_1(z,s: real; var si, zi: array of real);    // Рассчитываемая зависимость S(z)
                                                 {!!! Здесь должен быть статический массива array [1..30] of real}
 
 
{В подпрограмме ниже расчитывается средняя площадь поверхности горения навески воспламенительного состава}
procedure TForm1.subroutine_svosp_1(z, s: real; var si, zi: array of real);
 
{Формальные параметры:
z,s - сгоревший свод и соответствующие площади поверхности горения
zi,si - табличные значения свода и поверхности горения}
 
var
 
a1,a2,a3,a4,a5: real;
i,i1,i2,ind: integer;
 
begin
 
for i:=1 to 29 do        // Организуется цикл в котором разыскиваются в таблице
    begin                // Интервал, внутри которого находится значение сгоревшего свода zi(i)
    i1:=i;
    i2:=i+1;
    a1:=zi[i1];
    a2:=zi[i1];
    if (a3*a4)<=0 then    // Признак определяющий, что решение есть (ind=1) или нет (ind=0)
    begin
    ind:=1;
    Exit;
    end;
    ind:=0;
    end;
 
case ind of
    0:
      begin
      s:=0;
      end;
    1:
      begin                             // Используется линейная интерполяция
      a4:=a2-a1;
      a3:=a3/a4;
      s:=si[i1]+(si[i2]-si[i1])*a3;     // Поверхность горения
      end;
    end;
 
end;
 
end.

type
  TArray = array [1..30] of real;