Поменять строку вывода - Turbo Pascal

Формулировка задачи:

Проблема такова, у меня задача про "Ханойские башни" и пользователь вводит кол-во дисков, стержни с которых на какой переносит, и получается у меня при вводе дисков стоит проверка на положительность ввода, но когда пользователь вводит отрицательное кол-во дисков то программа идет дальше и требует ввода стержней с которых на какой переносить и только после ввода стержней пишет о ошибке, помогите сделать так чтобы после ввода дисков со знаком минус программа сразу писала о ошибке и заканчивалась.

program Hanoj;
 
procedure step(from_s, to_s: integer);
begin
  write(from_s, '->', to_s, '   '); 
end;
 
procedure move(n, from_s, to_s, work_s: integer);
begin
  if n > 0 then 
  begin
    move(n - 1, from_s, work_s, to_s); 
    step(from_s, to_s);
    move(n - 1, work_s, to_s, from_s);
  end;
  if n<0 then
    writeln('Некорректно введенные данные');
end;
 
procedure input(var a:integer;var b:integer;var с:integer);
begin
  write ('Стержень, на котором изначально находятся диски: ');
  readln(a);
  write ('Стержень, на который нужно переместить диски: ');
  readln(b);
  с:=6-(a+b);
  end;
  
var
  a,b,c,n: integer;
begin
  writeln ('Данная программа реализует головломку Ханойская башня,с тремя стержнями ');
  write ('выбирете кол-во дисков: ');
  readln(n);
  input(a,b,c);
  move(n,a,b,c);
  readln; 
end.

Решение задачи: «Поменять строку вывода»

Листинг программы

repeat
  write ('выбирете кол-во дисков: ');
  readln(n);
until n>0;

Объяснение кода листинга программы

В данном коде происходит следующее:

Запрос на ввод количества дисков с помощью функции readln().
Проверка на положительность введенного значения переменной n.
Если значение n больше нуля, то цикл прекращается, иначе повторяется шаг 1.