Функция Опции

[Credo]

Описать рекурсивную функцию MinRec(A,N) вещества типа,которая находит минимальный элемент вещестного массива A размера N,не используя оператор цикла .С помощью функции MinRec найти минимальные элемента массивов A,B,C размера NA,NB,NC соответсвенно!!

Помогите пожалуста. непонятные ошибки...

type mas=array[1..50] of integer;
var x,y,z:mas;
    n,i,k,l:integer;

function Min(n,k,l:integer):integer;
var w:integer;
begin
if n>1 then
 begin
  w:=Min(n-1);
  if x[n]>w then Min:=w
  else Min:=x[n]
 end
else Min:=x[1]
end;

begin
if k>1 then
 begin
  w:=Min(k-1);
  if y[k]>w then Min:=w
  else Min:=y[k]
 end
else Min:=y[1]
end;

begin
if l>1 then
 begin
  w:=Min(l-1);
  if z[l]>w then Min:=w
  else Min:=z[l]
 end
else Min:=z[1]
end;

begin
clrscr;
randomize;
write('Razmer massiva X n='); readln(n);
write('Razmer masiva X k='); readln(k);
write('Razmer masiva X l='); readln(l);
writeln('Massiv X: '); writeln('Massiva Y: '); writeln('Massiv Z: ');
for i:=1 to n do
  begin
   x[i]:=random(20);
   y[i]:=random(20);
   z[i]:=random(20);
   write(x[i],' ', y[i] , ' ' , z[i] , ' ');
  end;
writeln;
write('min=',Min(n));
write('min=',Min(k));
write('min=',Min(l));
readln
end.