Pascal ABC

найти количество пар соседних элементов массива, в которых предыдущий элемент меньше последующего

uses crt;
var a:array [1..100] of byte;a, k,i,n:byte;
begin
read(i); a:=0;
for k:=1 to i do begin
read(n);
a[k]:=n;
end;
for k:=1 to i-1 do
if a[k]<a[k+1] then a:=a+1;
write(a);

end.