Определить массив Y=X^2-X^3

Program ex;
procedure n(a:string);
begin
writeln('---------------------------------');
writeln;
end;
var step:real;y,x:real;i:integer;formul:real;
begin
writeln('vvedite x');
writeln('vvedite x2');
writeln('Vvedite step');
readln(step);
x:=-1; y:=2;
while x<=y do
begin
for i:=1 to 20 do begin
formul[i]:= floattostr((x*x)-(x*x*x));
x:=x+0.1;
writeln('formul = ',formul:2);
if(i mod 3 = 0) then n;
end;
end;
end.

uses crt;
var y,yp:array[1..100] of real;
    n,i,j,k,l:byte;
    x:real;
begin
clrscr;
randomize;
n:=0;
x:=-1;
while x<=2+0.05 do
 begin
  n:=n+1;
  y[n]:=x*x-x*x*x;
  x:=x+0.1;
 end;
writeln('Массив Y:');
for i:=1 to n do
write(y[i]:0:2,' ');
writeln;
writeln;
k:=0;
for i:=1 to n do
if y[i]>0 then
 begin
  k:=k+1;
  yp[k]:=y[i];
 end;
writeln('Массив положительных элементов:');
for i:=1 to k-1 do
for j:=i+1 to k do
if yp[i]>yp[j] then
 begin
  x:=yp[i];
  yp[i]:=yp[j];
  yp[j]:=x;
 end;
i:=0;
j:=0;
while j<k do
 begin
  j:=j+1;
  write(yp[j]:8:4);
  if j mod 4=0 then
   begin
    i:=i+1;
    writeln;
    if i mod 3=0 then
     begin
      for l:=1 to 32 do write('-');
      writeln;
     end;
  end;
 end;
readln
end.