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

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

var m, i: integer;
begin
writeln ('введи целое число');
readln (m);
i:=1;
while (m>0) do
begin
for m:=i to m do
writeln (m,' ');
readln ();
end;
writeln ('ошибка');
end.