Рекурсивная функция. Описать функцию для определения минимального элемента вектора

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

uses crt;
type mas=array[1..50] of real;
var x:mas;
    n,k:integer;
function Mini(k:integer):real;
 var mnk:real;
 begin
 if k=n then Mini:=x[k]
 else
  begin
     mnk:=Mini(k+1);
     if mnk<x[k] then Mini:=mnk
     else Mini:=x[k];
  end;
 end;
function Min(x:mas):real;
var i:integer; mn:real;
begin
mn:=Mini(k);
for i:=1 to k-1 do
if x[i]<mn then mn:=x[i];
Min:=mn;
end;
var i:integer;
begin
clrscr;
 
write('Razmer massiva X n=');
readln(n);
writeln('Massiv X:');
for i:=1 to n do
  begin
  readln(x[i]);
 
      end;
writeln;
write('k=');readln(k);
write('min=',Min(x):0:2);
readln
end.

uses crt;
type mas=array[1..50] of real;
var x:mas;
    n,k:integer;
 
function Min(x : mas) : real;
 
   function min1(n : integer) : real;
   var mnk : real;
   begin
     if n < k then min1 := maxint
     else
     begin
       mnk := min1(pred(n));
       if mnk < x[n] then min1 := mnk
       else min1 := x[n];
     end;
   end;
 
begin
  min := min1(n);
end;
 
var i:integer;
begin
  clrscr;
  write('Razmer massiva X n='); readln(n);
  writeln('Massiv X:');
  for i:=1 to n do
  begin
    readln(x[i]);
  end;
  writeln;
  write('k=');readln(k);
  write('min=',Min(x):0:2);
  readln
end.