Найти минимальный элемент в массиве. Массив задать при датчика случайных чисел

program test;

const N = random();

var m: array [0.0 .. N] of integer;

var i : integer;

var min : integer;

begin

for i := 1 to N do

begin

m[i] = random();

end;

min:=1;

for i:=2 to N do

begin

if array[i]<array[min] then

min:=i;

writeln('минимальный элемент ', a[min]);

end;

end.