Дан массив A из 10 чисел,в нем последовательность от a до b,надо найти количество чисел в этой последовательности — Pascal(Паскаль)

var c:array[1..10]of integer;
k,k1,i,a,b,z:integer;
begin
writeln('введите массив');
for i:=1 to 10 do
readln(c[i]);
writeln('введите А');
readln(a);
writeln('введите Б');
readln(b);
for i:=1 to 10 do begin
if c[i]=a then k:=i;
if c[i]=b then k1:=i;
end;
z:=k1-k;
writeln('элементов в последовательности= ',z);
end.