Как написать в 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.