Помогите, пожалуйста. Задачка, которую необходимо решить на Паскале способом until. Ввести

//Pascal ABC.NET v3.1 сборка 1172

var
  n, m: integer;

begin
  read(n, m);
  repeat
    writeln('Текущее значение N:', n, ' ,до m:', m - n);
    inc(n);
  until n = m;
  writeln('Завершено, n=m');
end.

Пример ввода:
12
20
Пример вывода:
Текущее значение N:12 ,до m:8
Текущее значение N:13 ,до m:7
Текущее значение N:14 ,до m:6
Текущее значение N:15 ,до m:5
Текущее значение N:16 ,до m:4
Текущее значение N:17 ,до m:3
Текущее значение N:18 ,до m:2
Текущее значение N:19 ,до m:1
Завершено, n=m