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

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

var m, b, i: integer;
begin
  writeln('Vvedite ogranichitel');
  readln(m);
  while (b <= m) do
  begin
    writeln('Vvedite celoe chislo');
    readln(b);
    if (b > 1) AND (b <= m) then
      for i := 1 to b do
        write(i,' ');

  end;
  writeln();
  writeln('Exit');
  readln();
end.