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

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

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

program task6;
var a,m: integer;
begin
  a:=1;
  writeln ('Vvedite pologitelnoe chislo');
  readln(m);
  if (m>0) then
  begin
    while (a<=m) do
    begin
      write(a,' ');
      a:=a+1;
    end;
  end
  else
    write('error');
  readln()
end.