//fpe 1.0.0
program World;
var
mas:array[1..15] of integer;
i,men:integer;
begin
randomize();
for i:=0 to 15 do begin
mas [i]:=random(50)+5;
write(mas[i]:3);
and;
men:=mas[i];
while i:=2 to 15 do
if mas[i]< men then men:= mas[i];
writein('min=',men);
and;


в чем ошибка ?