Помогите пожалуйста! Как написать программу с оператором while которая заканчивается когда ты ввёл больше 1000 чисел! Очень нужно!

Напишем программу на языке программирования Паскаль, с оператором while, которая заканчивается когда вводим число больше 1000: program chisladotysyachi; /название программы var i: integer; /задаем переменную begin witeln ('Введите значение любого числа с клавиатуры'); /сообщение на экране readln (i); /вводим число while i < 1000 do begin /условие до какого выполняется программа writeln (i);/ вывод на экран end; end. Таким образом составили программу по заданному условию для решения поставленной задачи.