Pascal заполнить массив из 20 целых чисел. подсчитать количество одинаковых "соседей" в массиве. нужно решение по программе 9 класса(т.е. без того, что проходят в 10-11 классах)

Код плохо выглядит здесь, поэтому кину в файле.

Var a:array[1..1000] of integer;
k, I, n: integer;
begin
k:=0;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n-1 do
if a[i]=a[i+1] then
k:=k+1;
writeln(k);
end.