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

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

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

var m,i,a: integer;
begin
readln(m);
i:=1;
while (i<m) do
begin
    readln(i);
    if i>1 then
        for a:=1 to i do
            write(a,' ')
    else if i<1 then writeln();
writeln();
end;
end.