Заполните линейный массив из 14 элементов случайными целыми числами с помощью функции случайного числа из интервала от -20 до -8. Вывести его в одну строку. Найти в массиве на минимальный элемент , на какой позиции он стоит в массиве.

Var 
min, i,position:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do begin
a [i]:=Random (-20,-8);
end;
min:=a[1];
position:=1;
for i:=2 to 14 do begin
if (a[i] lt; min) then
begin
min:=a[i];
position:=i;
end;
end;
write (Массив );
for i:=1 to 14 do begin
write (a [i]);
write ( );
end;
writeln( );
writeln (Минимальный элемент находится на позиции: , position);
writeln (Минимальный элемент равен: , min);
end.