Задается последовательность целых чисел. Сколько чисел отличается от первого на 1 ?Написать программу на паскале без использования массивов

uses crt; var n, a, b, k:integer; begin     k:=0;      writeln ('Сколько цифр будет в строке?');      read (n);      writeln ('Вводите числа, после каждого ENTER.');      read (b);      for n:=1 to n-1 do      begin      read (a);      if a+1=b then k:=k+1 else      if a-1=b then k:=k+1;      end;      writeln ('Количество чисел отстающих на 1 от первого числа - ',k); end.