Надо ! прямо сейчас урок информатики , а я не понимаю ! дано двузначное число ,первое увеличить на единицу , последнее уменьшить на единицу

Var
  n,n1,n2:integer;
begin
  Write('Введите целое двухзначное число: ');
  Readln(n);
  n1:=(n div 10)+1;
  if n1=10 then n1:=0;
  n2:=(n mod 10)-1;
  if n2=-1 then n2:=9;
  Writeln('Результат: ',n1,n2)
end.

Тестовое решение:

Введите целое двухзначное число: 38
Результат: 47

Введите целое двухзначное число: 90
Результат: 09