Ввести с клавиатуры 2 целых числа ,вывести больше из них ,написать первое это число или второе (написать на паскале)

Var a, b: integer;
begin
    read(a); read(b);
    if (a > b) then
        writeln('Первое число больше второго')
    else
    begin
        if (a < b) then
            writeln('Второе число больше первого')
        else
            writeln('Числа равны');
    end;
end.