Задача. Паскаль. Почему это решение не верно?

Студент Валера являет собой классический пример лентяя. На занятия он практически не ходит, и только в конце семестра появляется в университете и сдает ”хвосты”. Его заветная мечта: найти такой день, когда можно будет сдать сразу все долги. У него есть расписание работы преподавателей, из которого точно известно, с какого и по какой день месяца каждый преподаватель ежедневно будет доступен.

Помогите Валере написать программу, которая по расписанию будет определять, сможет ли Валера сдать все долги за один день или нет.

var
i,max,min,n:integer;
a,b:array[1..100]of integer;
begin
read(n); max:=0; min:=32;

for i:=1 to n do
begin
read(a[i],b[i]);
if a[i]>max then max:=a[i];
if b[i] end;

if min>max then
writeln('YES')
else writeln('NO');
end.

vara,b:array[1..100]of integer; i,max,min,n:integer; begin readln(n);max:=0; min:=32;for i:=1 to n do beginreadln(a[i],b[i]); if a[i]>max then max:=a[i]; if b[i]<min then min:=b[i];end; if min>=max thenwriteln('YES') else writeln('NO'); end.Пример:31 53 104 14YES