Помогите найти ошибку

[Areopag]

Всем добрый вечер! Программа рабочая, но преподаватель говорит что есть ошибка связанная с оператором IF
Помогите пожалуйста

вввв.jpg


program lab_5;
var U,x,y,a,b,min,e:real;
begin
writeln('x=');
readln(x);
writeln ('y=');
readln(y);
begin if sin(x) + cos(x) = 0 then begin
writeln('Ошибка, деление на нуль')
end
else if y = 1.2 then begin
writeln ('Ошибка, деление на нуль')
end
else
a:=(exp(-x*x-1*ln(exp(1))))+(sin(x*x-8))/(1.2-y);
b:=sqrt(abs(y-2))+(2*x*x-6*x-1)/(sin(x) + cos(y));
if a<b
then min:=a
else min:=b;
U:=min;
writeln('U=', U:6:2);
end;
end.

[Аватар]

Максимум нужно же найти а не минимум. Да и сравнивать вещественные в лоб с константой идея так себе