Линейный Поиск в массиве со случайными числами в PascalABC.NET

[Otar4ik]

Задание:
Сравнить время выполнения линейного поиска в массиве a[n],случайных чисел при n=100,200,…,1000.

В чём собственно проблема
не работает генератор случайных чисел,хотя прописана процедура.Почему то работает если вводишь с клавиатуры и тогда процедура работает,но не считает ни место,не элемент массива,время считает.

нужно чтобы он рандомно загружал числа и сразу выводил на печать вхождение числа,место и время.

program LinSearch1;
 
uses Crt;
 
const
 
n = 1000;
 
type
  massiv = array[0..n] of integer;
 
var
mas:massiv;
  y: array [0..9] of integer;
  x, j, i, f: integer;
  
  
procedure print(z, t: string);
begin
  writeln('Первое вхождение числа ', z, ' в массив А на ', i, ' месте','Время',t,'миллисекунд');
end;
 
procedure ran(var m: massiv);
begin
  for var i := 0 to f do
  begin
    m[i] := random(100);
  end;
end;
 
procedure linp(var m:massiv);
var
  t1,t2,n, x,z, i: integer;
begin
  read(n);
  for i := 1 to n do read(m[i]);
  read(x);
  i := 1;
  while (i <= n) and (m[i] <> x) do
  i := i + 1;
t2 := milliseconds;
print(inttostr(z), inttostr(t2 - t1));
end;
 
begin
 y[0]:=100;
 y[1]:=200;
 y[2]:=300;
 y[3]:=400;
 y[4]:=500;
 y[5]:=600;
 y[6]:=700;
 y[7]:=800;
 y[8]:=900;
 y[9]:=1000;
 for var h:=0 to 9 do
 begin
 f:=y[h];
  writeln('--------------',f,'--------------');
  ran(mas);
 linp(mas);
end;
end.

[Serge_Bliznykov]

в начале программы надо обязательно вызвать процедуру иницилизации генератора ПСЧ:

begin
   Randomize;
 y[0]:=100;

ну и массив y я бы в цикле заполнил:
вместо y[0]:=100; y[1]:=200; .... y[9]:=1000;
достаточно:

  for i:=1 to 10 do y[i-1] := i*100;

[Otar4ik]

Сообщение от Serge_Bliznykov

в начале программы надо обязательно вызвать процедуру иницилизации генератора ПСЧ:

begin
   Randomize;
 y[0]:=100;

ну и массив y я бы в цикле заполнил:
вместо y[0]:=100; y[1]:=200; .... y[9]:=1000;
достаточно:

  for i:=1 to 10 do y[i-1] := i*100;

Простите,но но всё равно не выводит ничего.вот если я введу он выдаст время,а так на автомате ничего не выводит(