Дано двузначное число. Определить: разность первой и второй цифры

var N, Des, Edi, Ans : integer;
// N - двузначное число
// Des - десятки
// Edi - единицы
// Ans - ответ
begin
  repeat
  Write('Введите двузначное число: ');
  Readln(N);
  if (N<10) or (N>99)
  then Writeln('Ошибка ввода данных!');
  until (N>9) and (N<100);
  Des:=N div 10;
  Edi:=N mod 10;
  Ans:=Des-Edi;
  Writeln('Ответ: ', Ans);
end.

var N, A, Des, Edi, Sot : integer;
// N - целое трёхзначное число
// A - любое целое число
// Des - десятки
// Edi - единицы
// Sot - сотни
begin
  repeat
  Write('Введите трёхзначное число: ');
  Readln(N);
  if (N<100) or (N>999)
  then Writeln('Ошибка ввода данных!');
  until (N>99) and (N<1000);
  Write('Введите любое число: ');
  Readln(A);
  Edi:=N mod 10;
  Des:=(N div 10)mod 10;
  Sot:=N div 100;
  if Sot*Des*Edi > A
  then begin
    Writeln('Больше');
  end
  else begin
    Writeln('Меньше');
  end;
end.