Задано последовательность из N чисел:a (1), a (2), a (3), … , a (N). Найти количество чисел на промежутку [a,b] — Pascal(Паскаль)

uses
    crt;
var
   a:array[1..1000] of integer;
   b,c,n,i,k:integer;
begin
     writeln('wvedite n');
     readln(n);
     writeln('wvedite posledovatelno ',n,' chisel');
     for i:= 1 to n do
         read(a[i]);
     writeln('wvedite promeshutok a b');
     readln(b,c);
     if ((b>n) or (b<0) or (c>n) or (c<0)) then writeln('ERROR')
     else begin
          k:=0;
          for i:= b + 1 to c - 1 do
          k:=k+1;
          writeln('kolvo chisel na otrezke ',b,' ',c,' ','ravna ',k);
        end;
readkey
end.