помогите найти ошибку

[лена99]

помогите найти ошибку,чтобы выводило число заданных чисел

program p4;
var a,x,s,k:real;
begin
k:=0;s:=0;
writeln('введите а');
readln(a);
repeat
writeln('введите х');
readln(x);
k:=k+1;
s:=s+abs(x);
until s>a;
writeln('k= ',k:8:3);
readln;
end.

[Konstantin_ua]

Как понимать?

число заданных чисел

суму? Количество?

[лена99]

задание:дано число а>0,числа х1,х2...
необходимо вводить числа х1,х2... пока сумма модулей введенных чисел будет меньше а
определить:введенных чисел

[Smogg]

у меня выводит

[лена99]

у меня тоже выводить,только ответ всегда одинаковый

[Smogg]

введите а
12
введите х
1
введите х
1
введите х
1
введите х
1
введите х
1
введите х
1
введите х
1
введите х
1
введите х
1
введите х
1
введите х
1
введите х
1
введите х
1
k= 13.000

не знай, не знай...

А если так, то количество чисел правильно:

program p4;
var a,x,s,k:real;
b: boolean1;
begin
k:=0;s:=0;
writeln('введите а');
readln(a);
//repeat
b := true;
while b do
begin
b:= false;
writeln('введите х');
readln(x);
s:=s+abs(x);
if (s < a) then
begin
b := true;
k:=k+1;
end;
end;
///unti1l s>a;
writeln('k= ',k:8:3);
readln;
end.

[лена99]

все спасибо,это я протупила