Вводить числа, пока сумма не превысит 1000 - Pascal ABC

Написать программу, которая запрашивает с клавиатуры числа и производит их суммирование до тех пор, пока сумма чисел не превысит 1000.

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

var s, n: Integer;
begin
  repeat
    Write('> '); Read(n);
    s:=s+n; WriteLn('... + ',n,' = ',s);
  until s>1000;
end.

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

Создается переменная s типа Integer и инициализируется значением 0.
Создается переменная n типа Integer и инициализируется значением 0.
Запускается цикл repeat, который будет выполняться до тех пор, пока значение переменной s не превысит 1000.
Внутри цикла, с помощью функции Write, выводится приглашение для ввода числа.
С помощью функции Read, считывается введенное число и сохраняется в переменной n.
С помощью оператора s:=s+n, значение переменной s увеличивается на значение переменной n.
С помощью функции WriteLn, выводится строка ... +,n,=,s`, где n - это значение переменной n, а s - это значение переменной s.
Цикл повторяется, пока значение переменной s не превысит 1000.
Когда это условие выполняется, цикл завершается.
Программа заканчивается.