Вычислить значения функции

[iCaesy]

Вычислить значения функции y = nsinx - cosnx, если x изменяется
x0 до xm с шагом h. Записать в массив Z подряд значения функции,
удовлетворяющие условию 0<=y<=1.

Program pr;
Uses crt;
const x0=1;xm=10;h=0.5; m=100;
var x,y,n:real; a:array[1..m] of real;
i,kol:integer;
Function Num(n,x:real):real;
   begin
      Num:=sin(n*x) - cos (n/x);
   end;
begin
clrscr;
writeln('Vvedite n: ');
readln(n);
x:=x0;
kol:=1;
while x<=xm do
begin
y:=Num(n,x);
writeln('Y=',y:1:1);
x:=x+h;
kol:=kol+1;
end;
writeln ('Ih kol-vo =',kol);
writeln ('Massiv 0<=y<=1 ');
end.

Куда всунуть запись элементов в массив, а то у меня записывает последний только (

[Dush]

kol:=1;
while x<=xm do
begin
  y:=Num(n,x);
  if (y>=0) and (y<=1) then 
  begin
    a[kol]:=y;
    kol:=kol+1;
  end;
  x:=x+h;
end;

[tsar_]

Куда всунуть запись элементов в массив, а то у меня записывает последний только (

Всуньте это в цикл while...do после вычисления значения функции.

З.Ы. Dush обогнал...

[iCaesy]

Все спасибо разобрался.