Вычислить функцию,найти минимальное(pascal)

[vishn]

Задание. Вычислить значение U. Найти минимальное значение U среди всех U>2.1 и при каких x,y,z они достигаются.При 1<=x<=3 hx=1.3; 2<=y<=4 hy=1.3; 0.5<=z<=1.5 hz=0.8

program laba2;
var x,y,U,z,max,min,zmin,xmin,ymin:real ;
begin
writeln (' x y z U');
max:=10*10;
x:=1;
while x<=3 do begin
y:=2;
while y<=4 do begin
z:=0.5;
while z<=1.5 do begin

U:=-sqrt(sqr(y)+4*sqr(x)/3)+5*cos(x*y)*cos(x*y)*cos(x*y)*cos (x*y)/x*z ;
writeln(x:5:2,' ',y:5:2,' ',z:5:2,' ',U:5:2);
z:=z+0.8;
end;
y:=y+1.3
end;
x:=x+1.3
end;


end.

Вывод значений U я написал.А вот как сделать вывод мин. знач. U среди всех U>2.1,и вывод x,y,z, при которых он достигается ????
Зарание благодарю.