Изменение чисел в рандоме

[IgoreKMaN]

Подскажите пожалуйста почему в рандоме числа ставятся один раз, а не изменяются при каждом запуске программы?

Program L10;
Uses crt;

var q,a,z,i:integer;
    x,y: array [1..5] of integer;
    t,b: real;
   begin
   clrscr;
   q:=1;
   a:=2;
   t:=3;
   write('x[i]:  ');
   for i:= 1 to 5 do
   begin
   x[i]:= random(50);
   write(x[i],'           ');
   end;

    writeln('  ');
    writeln('  ');
    write('y[i]:  ');

     for i:= 1 to 5 do
   begin
   y[i]:= random(50);
   write(y[i],'           ');
   end;

   writeln(' ');
   writeln(' ');
   For i:= 1 to 5 do
  Begin
   b:=(3*x[i]*x[i]-(sqrt(cos(q*q*q))))/(sqr(ln(y[1]+a)*t));
   write('      ',b:2:3,' ');
   end;

   readkey;
   end.

[kventin_zhuk]

Randomize вызовите перед использованием random

[IgoreKMaN]

если пишу randomize тогда ошибку выбивает "Error in expresion"

[kventin_zhuk]

что у вас за компилятор? у меня лично даже без randomize генерирует постоянно разные (не знаю почему), может по умолчанию что-то задано.

randomize;
for i:= 1 to 5 do
begin
   x[i]:= random(50);
   write(x[i],'           ');
end;

Вот так вот, ошибка?

[IgoreKMaN]

Спасибо большое!