Исправьте программу для определения минимального элемента линейного массива Х

[Figushkin]

Задание: Описать функцию min(X) для определения минимального элемента линейного массива Х, введя вспомогательную рекурсивную функцию min1(k), находящую минимум среди последних элементов массива X, начиная с k-того.

program seven;
uses crt;

const
n=20;
TYPE
vector=array[1..n] of real;

function min(v:vector; No:Integer):Real;
function min1(k:Integer):Real;
var m:Real;
begin
if k>=n then
m:=v[n]
else
m:=min1(k+1);
if m<v[k]
then min1:=m
else min1:=v[k]
end;
begin
min:= min1(No)
end;

var i,k:Integer;
ve:vector;
BEGIN
for i:=1 to n do
ve[i]:=random;
repeat
Write('vvedite nomer ot 1 do ',n,': ');
ReadLn(k);
if (k>0) and (k<=n) then Break;
Writeln(n,':');
until false;
WriteLn(min(ve, k):8:4);
readln;
END.

надо что бы не рандомые элементы были, а так что бы ввести набор элементов и из них был выбран минимальный. Обязательно должна быть function min и вспомогательная function min1.

[Figushkin]

Помогите плз