Как написать в pascal abc программу которая Определяет является ли последовательность арифметической прогрессией

program zz1;
var n, k, p, a, b, h:integer; // задаем переменные не целого типа
begin
write(' введите количество чисел в последовательности ');
read(n);
p:=2;
read(a); // вводим с клавиатуры число
read(b); // вводим следующее число
h:=b-a;
while p <= n do // организуем цикл, пока
begin
if b - a <> h then k:=1; // проверяем на прогрессию
a:=b;
read(b);
p:=p + 1;
end;
if k = 0 then writeln(' последовательность является арифметической прогрессией ')
else writeln(' последовательность не является арифметической прогрессией '); // выводим ответ

end.