Вывести значения элементов, начиная с первого, так что бы значение выводимого элемента отличалось от значения предыдущего (программа Паскаль)

var a,b:integer;
begin
  read(a);
  write(a,' ');
  b:=a;
  while a<>0 do
  begin
    read(a);
    if  abs(a-b)<=1000
    then
      begin
        write(a,' ');
        b:=a;
      end;
  end;
end.