Задача по информатике написать программу в которой будет вычитаться из числа 1000 числа,введённые пользователем с клавиатуры до тех пор, пока разность не станет меньше 0. примечание применить цикл REPEAT,UNTIL помогите пожалуйста буду благодарен

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017

begin
  var t:=1000;
  var k:integer;
  repeat
    k:=ReadInteger(-gt;);
    t-=k
  until tlt;0;
  Writeln(Всё...)
end.

Пример
-gt; 453
-gt; 216
-gt; 39
-gt; 64
-gt; 312
Всё...

Решение для "древних паскалей"

var
  k,t:integer;
begin
  t:=1000;
  repeat
    Write(-gt;); Read(k);
    t:=t-k
  until tlt;0;
  Writeln(Всё...)
end.