определение большого числа из 2-ух не равных чисел введеный с клавеатуры

var
   a,b : integer;  // объявление переменных
begin
    write(Введите два целых числа: ); // вывод на экран текстовой строчки
    readln(a,b); // считываем значение переменных, введенных с клавиатуры
 if (a = b) then  // производится если введенные числа одинаковы
    writeln(Число , a, одинаково числу , b)  // вывод на экран текстовой строчки
else   // производится если числа не одинаковы
  begin
     if (a gt; b) then // производится если а gt; b
        writeln(Число , a, больше числа , b)  // вывод на экран текстовой строчки
     else  // производится если а lt; b
        writeln(Число , a, меньше числа , b) // вывод на экран текстовой строки
   end
end.