Pascal ABC Где ошибка?

function Min4(a,b,c,d:real):real;
var min1,min2:real;
begin
if a<b then min1:=a else min1:=b;
if c<d then min2:=c else min2:=d;
if min1<min2 then Min4:=min1 else Min4:=min2;
end;
var a,b,c,d,e:real;
begin
writeln('Введит вещественнве числа a,b,c,d,e:');
readln(a,b,c,d,e);
writeln('Минимальное из ',a,' ',b,' ',c,' ',d,' =',Min4(a,b,c,d));
writeln('Минимальное из ',a,' ',b,' ',c,' ',e,' =',Min4(a,b,c,e));
writeln('Минимальное из ',a,' ',c,' ',d,' ',e,' =',Min4(a,c,d,e));
writeln('minimalnoe iz ',Min4(a,b,c,d),' ',Min4(a,b,c,e),' ',Min4(a,c,d,e),' =',Min4(Min4(a,b,c,d),Min4(a,b,c,e),Min4(a,c,d,e), -1 ));
readln
end.

function Min(a,b:real):real;
begin
if a<b then min:=a else min:=b;
end;
var a,b,c,d,e:real;
begin
writeln('Введите вещественные числа a,b,c,d,e:');
readln(a,b,c,d,e);
writeln('Минимальное из ',a,' ',b,' ',c,' ',d,' =',Min(Min(a,b),Min(c,d)));
writeln('Минимальное из ',a,' ',b,' ',c,' ',e,' =',Min(Min(a,b),Min(c,e)));
writeln('Минимальное из ',a,' ',c,' ',d,' ',e,' =',Min(Min(a,c),Min(d,e)));
writeln('Минимальное из ',Min(Min(a,b),Min(c,d)),' ',Min(Min(a,b),Min(c,e)),' ',
Min(Min(a,c),Min(d,e)),'=',Min(Min(Min(Min(a,b),Min(c,d)),Min(Min(a,b),Min(c,e))),
Min(Min(a,c),Min(d,e))));
end.