Определите истинность следующих высказываний: a=b, a=b - Free Pascal

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

Доброе время суток, уважаемые обитатели форума! Помогите, пожалуйста, написать программу в free pascal, решив задачу: СГЕНЕРИРУЙТЕ ДВА ПРОИЗВОЛЬНЫХ ЧИСЛА а[40; 120] и b[30; 70). ОПРЕДЕЛИТЕ ИСТИННОСТЬ СЛЕДУЮЩИХ ВЫСКАЗЫВАНИЙ: a<b, a>=b, a=b. За любой отклик буду признательна!

Решение задачи: «Определите истинность следующих высказываний: a=b, a=b»

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

var a,b:byte;
begin
randomize;
a:=40+random(81);
b:=30+random(41);
writeln('a=',a,'  b=',b);
writeln('a<b ? ',a<b);
writeln('a>=b? ',a>=b);
writeln('a=b ? ',a=b);
readln
end.

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

Объявляются две переменные типа byte - a и b.
Введенный код генерирует случайные значения для переменных a и b с помощью функции random(81) и random(41) соответственно.
Выводятся значения переменных a и b с помощью функции writeln.
Вычисляется и выводится результат сравнения переменных a и b с помощью функции writeln и символа вопроса ?.
Результат сравнения a<b выводится на экран.
Результат сравнения a>=b выводится на экран.
Результат сравнения a=b выводится на экран.
Программа ожидает ввода с помощью функции readln.