Составить программу паскаль из 2-х чисел уменьшить на 8 а меньшее число увеличить в 2 раза

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

program DecreaseAndDouble;
var
firstNum, secondNum: Integer;
begin
write('Enter the first number: ');
readln(firstNum);
write('Enter the second number: ');
readln(secondNum);

firstNum := firstNum - 8;
secondNum := secondNum - 8;

if firstNum < secondNum then
firstNum := firstNum 2
else
secondNum := secondNum 2;

writeln('Result for the first number: ', firstNum);
writeln('Result for the second number: ', secondNum);
end.