исправить код

[seed92]

program zadanie;
uses crt;
var a,b,s:integer;
begin
b:=0;
s:=0;
repeat
writeln(' BBeguTe 4ucJIo');
read(a);
while(a>b) do begin
b:=a;
s:=s+1;
end;
writeln(' кол-во элементов' , s)
until a<b;
end.
нужно чтоб программа работала через один цикл, а не через два...
само задание "написать программу для ввода последовательности чисел с клавиатуры.если последуещее число меньше предыдушего то закончить программу и вывести кол-во элементов вводимых"