На языке Паскаль ввести 4 числа и вывести большее из них

Предыдущий
вопрос Следующий
вопрос

program MaxNumber;
var
num1, num2, num3, num4, maxNum: integer;
begin
writeln('Enter the first number: ');
readln(num1);

writeln('Enter the second number: ');
readln(num2);

writeln('Enter the third number: ');
readln(num3);

writeln('Enter the fourth number: ');
readln(num4);

if (num1 > num2) and (num1 > num3) and (num1 > num4) then
maxNum := num1
else if (num2 > num3) and (num2 > num4) then
maxNum := num2
else if (num3 > num4) then
maxNum := num3
else
maxNum := num4;

writeln('The maximum number is: ', maxNum);
end.