На вход-целые числа, количество неизвестно, заканчивается 0(while.)Найти количество пар элементов (пара элементов - это любые подряд идущие в последовательности два числа), модуль разности которых меньше 7. паскаль

Предыдущий
вопрос Следующий
вопрос

program CountPairsLessThan7;
var
num, prevNum, countPairs: integer;
begin
countPairs := 0;
read(prevNum);
while prevNum <> 0 do
begin
read(num);
if abs(num - prevNum) < 7 then
countPairs := countPairs + 1;
prevNum := num;
end;
writeln('Number of pairs with a difference less than 7: ', countPairs);
end.