Задача 5 Урок 13.1

Задача 5 Урок 13.1:

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

var a, i, m: integer;
begin
   writeln('Введите число-ограничитель:');
   readln(m);
   writeln('Введите целое число:');
   readln(a);
   while a <= m do
    begin
     if a > 1 then
      for i := 1 to a do
       write(i, ' ');
     writeln('Введите целое число:');
     readln(a);
    end;
   readln();
end.