Вычислить значение ф-ции в пределах и с шагом. Сформировать массивы, определить сред. геом по условию

PROGRAM LAB3;
VAR x,z,alfa,pr1,pr2,SG1,SG2:real; k,i,j,l,m:integer;
a:array [1..100] of real;
b:array [1..100] of real;
c:array [1..100] of real;
begin
    alfa:=1.5;
        x:=2;
    repeat
          z:=0.3*sqr(alfa)*sin(sqr(x))-2*ln(x-alfa);
          k:=k+1;
          a[k]:=z;
          x:=x+0.5;
    until x>18;
        writeln ('Массив всех чисел');
    for i:=1 to m do
begin
    if a[k]>0 then
        begin
         b[j]:=i;
     j:=j+1;
    end;
    if a[k]<0 then
    begin
     c[l]:=i;
     l:=l+1;
    end;
end;
    writeln;
    writeln('Положительные элементы массива:');
    for i:=1 to j-1 do
        if b[i]>0 then write(b[i]:3:1,' ');
      writeln;
    writeln('Отрицательные элементы массива:');
    for i:=1 to l-1 do
        if c[i]<0 then write(c[i]:3:1,' ');
begin
    for i:=1 to k do
    begin
      if b[i]>alfa then pr1:=pr1*b[i];
      SG1:=exp(1/34*ln(pr1));
      writeln;
      writeln('Среднее геометрическое массива положительных чисел',SG1);
    end;
    begin
      if b[i]>alfa then pr2:=pr2*c[i];
      SG2:=exp(1/34*ln(pr2));
      writeln;
      writeln('Среднее геометрическое массива отрицательных чисел',SG2);
    end;
end;
 
end.