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

http://fkn.ktu10.com/?q=node/8697
Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.

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