массив в паскале

[AVer]

var
X: array [1..30] of Integer;
Y: array [1..30] of Real;
Z: array [1..60] of Real;
i, n: Integer;

begin
randomize;
writeln('X:');
for i:=1 to 30 do
begin
X[i]:=-50+random(191);
writeln(X[i]:7);
end;
WriteLn;
WriteLN('Y:');

for i:=1 to 30 do
begin
if x[i]>0 then Y[i]:=exp(1/3*ln(X[i]*sqr(1-X[i])))
else Y[i]:=-exp(1/3*ln(abs(X[i])*sqr(1-X[i])));
writeln(Y[i]:7:2);
end;

n:=0;

for i:=1 to 30 do
if X[i]>0 then
begin
n:=n+1;
Z[n]:=X[i];
end;

for i:=1 to 30 do
if Y[i]>0 then
begin
n:=n+1;
Z[n]:=Y[i];
end;
WriteLn;
WriteLn('Z:');
for i:=1 to n do
writeln(Z[i]:7:2);
ReadLn;

Вот это у меня работает.