Составить программу нахождения меньшего из 4 чисел x,y,z,t с использованием подпрограммы-функции поиска минимального из двух чисел — Pascal(Паскаль)

uses crt;
var x,y,z,t:integer;
function mib(a,b:integer):integer;
begin
 if a>b then min:=b else min:=a;
end;
 
begin
 clrscr;
 write('X Y Z T-> ');
 readln(x,y,z,t);
 writeln('MIN=',min(min(x,y),min(z,t)));
 readln;
end.