Пусть дан файл целых чисел. Определите, образуют ли числа арифметическую прогрессию - Pascal

Формулировка задачи:

Пусть дан файл целых чисел. Определите, образуют ли числа арифметическую прогрессию.

Решение задачи: «Пусть дан файл целых чисел. Определите, образуют ли числа арифметическую прогрессию»

Листинг программы

var d, p, q: Integer;
begin
  Assign(input,'input.txt'); Reset(input);
  Read(p,q); d:=q-p;
  while not SeekEoF and (q-p=d) do begin
    p:=q; Read(q);
  end;
  if q-p<>d then Write('не ');
  WriteLn('является арифметической прогрессией');
  Close(input);
end.

Объяснение кода листинга программы

Объявление переменных: d, p и q типа Integer.
Открытие файла input.txt для чтения: Assign(input,'input.txt'); Reset(input);
Чтение значений переменных p и q из файла.
Вычисление разности между q и p и сохранение в переменную d: d:=q-p;
Начало цикла while проверяющего, не достигнут ли конец файла и равны ли последовательные числа разности d: while not SeekEoF and (q-p=d) do begin
Внутри цикла обновление значения переменной p и чтение следующего значения q.
Проверка условия, что разность между q и p больше d и вывод сообщения, если условие не выполняется: if q-p<>d then Write('не ')
Вывод сообщения о том, что последованность является арифметической прогрессией: WriteLn('является арифметической прогрессией')
Закрытие файла input.txt: Close(input);