совершенные числа

[druger]

Короче я сделал вот такую прогу: В числовую перменную последовательно вводятся целые положительные числа. Требуется вывести на экран совершенные числа(натуральные числа, равные сумме всех своих собственных делителей т. е. всех положительных делителей, отличных от самого числа(1 + 2 + 3 = 6))
Вот эта прога:
Program p1;
uses crt ;
var n,x,i,d,s:integer;
begin
clrscr;
writeln('vvedite n');
readln(n);
for i:=1 to n do
begin
writeln('vvedite x');
readln(x);
S:=1;
for d:=2 to x div 2 do
if (x mod d=0) then s:=s+d;
if x=s then writeln ('x','=',x, 'sovershennoe chislo') else
writeln ('wi vveli nesovershennoe chislo');
end;
readln
end.
Я делал её с таким условием: Решить задачу, если кол-во вводимых чисел равно заранее заданому числу N.
Теперь мне надо решить задачу, если количество вводимых чисел заранее не известно. Считать что числа не равны 0 и в качестве признака конца ввода ввести число 0
Помогите мне сделать эту прогу, срочно надо.

[GetMax]

var n,x,i,d,s:integer;
begin
Repeat
writeln('vvedite x');
readln(x);
If x <> 0 then
Begin
S:=1;
for d:=2 to x div 2 do
if (x mod d=0) then s:=s+d;
if x=s then writeln ('x','=',x, 'sovershennoe chislo') else
writeln ('wi vveli nesovershennoe chislo');
End
Else Exit
Until x = 0;
readln