Ошибка: нельзя преобразовать тип integer к boolean - Turbo Pascal

Формулировка задачи:

Program Example_96_1; 
Uses crt; 
Var x,y,Max,Min,Rezultat:integer;   
Begin 
  Clrscr;  
  Write('Введіть значення x та y: '); 
  Readln(x,y); 
  If x
  Then  
    Begin 
       Max:=y; 
       Min:=x; 
    end 
  Else 
    Begin 
       Max:=x; 
       Min:=y; 
    End; 
  Rezultat:=sqr(Max)-sqr(Min); 
  Writeln('Резудьтат обчислень:  ',Rezultat:8:2); 
  Readkey;      
End.

Ошибка перед Then (if x)

Решение задачи: «Ошибка: нельзя преобразовать тип integer к boolean»

Листинг программы

Program Example_96_1;
Uses crt;
Var x,y,Rezultat:integer;
Begin
  Clrscr;
  Write('Введіть значення x та y: ');
  Readln(x,y);
  if x>y then 
    Rezultat := sqr(x)-sqr(y)
  else 
    Rezultat := sqr(y)-sqr(x);
  Writeln('Результат обчислень:  ',Rezultat);
  Readkey;
End.

Объяснение кода листинга программы

Программа Example_96_1 использует библиотеку crt.
Объявляются три переменные: x, y и Rezultat типа integer.
Выводится сообщение для ввода значений x и y.
Считываются значения x и y с помощью функции Readln.
Проверяется условие: если x больше y, то вычисляется квадратный корень из x и из y, разность этих значений и выводится результат.
Если условие не выполняется, то вычисляется квадратный корень из y и из x, разность этих значений и выводится результат.
Выводится сообщение с результатом вычислений.
С помощью функции Readkey считывается нажатая клавиша, программа завершается.