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

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

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

var i, m: integer;
  begin
    write('vvedite pologitelnoe chislo: ');
    readln(m);

    while (m >= 0) do
      begin
        for i:=1 to m do
          write(i, ' ');
        writeln();
        write('vvedite chislo: ');
        readln(m);
      end;

    write('ohibka!');
    readln();
  end.

КОНСОЛЬ:

vvedite pologitelnoe chislo: 10
1 2 3 4 5 6 7 8 9 10
vvedite chislo: 5
1 2 3 4 5
vvedite chislo: -2
ohibka!