Решить задачку. Пользователь вводит 2 числа, вывести на экран максимальное и

Program task1;

var
    a, b: integer;
   
begin
    writeln('Введите 1 число: ');
    read(a);
    writeln('Введите 2 число: ');
    read(b);
   
    if a gt; b then
        begin
            write('Наибольшее: ', a);
            write('Малое: ', b);
        end
    else if a = b then
        write('a = b')
    else
        begin
            write('Наибольшее: ', b);
            write('Малое: ', a);
        end;
end.