Помогите пожалуста. непонятные ошибки...
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.