Табулирование (PascalABC)

[E_K]

В задаче "Для каждого у от 0.16 до 1.6 с шагом 0.24 при всех z от 0.1 до 0.5 вычислить
S=(yx2+z)* arcsin z, причем , если у<0.8 то z=0.1, иначе z=0.05"

Написал код, в строчке "z:array [0.1..0.5] of real;" пишет ошибку: ожидался порядковый тип. Как выйти из положения?

const dy=0.024;
 var s,y,x,z:double;
  z:array [0.1..0.5] of real;
  function Arcsin (x : real) : real;
  begin
  Arcsin := Arctan(x/Sqrt(1-sqr(x)));
  end;
begin
writeln('vvedite x');
read(x);
writeln('vvedite y');
read(y);
 y:=0.16;
 while y<1.6  do begin
  if z then s:=(y*x*x+z)*Arcsin(z);
    begin
    if y<0.8 then z:=0.1
    else z:=0.05;
    end;
  writeln(s:10:3);
  y:=y+Dy;
 end;
 readln;
end.

[Mad_Cat]

const dy=0.024;
 var s,y,x,z:double;
  function Arcsin (x : real) : real;
  begin
  Arcsin := Arctan(x/Sqrt(1-sqr(x)));
  end;
begin
writeln('vvedite x');
read(x);
writeln('vvedite y');
read(y);
 y:=0.16;
 while y<1.6  do begin
  if y<0.8 then z:=0.1
    else z:=0.05;
    s:=(y*x*x+z)*Arcsin(z);
end;
  writeln(s:10:3);
  y:=y+Dy;
 end;
 readln;
end.