Подсчитать в массиве количество чисел, входящих в заданный пользователем диапазон.

uses crt;
const n=20;
var a: array [1..20] of integer;
    i,nd,kd,k: integer;
begin
writeln('Дан массив');
for i:=1 to n do
    begin
    a[i]:=random(199)-99; write(a[i]:4);
    end;
writeln;
repeat
writeln('Задайте диапазон:'); readln(nd,kd);
until (nd<kd) and ((nd>-100) and (kd<100));
for i:=1 to n do
    if (a[i]>=nd) and (a[i]<=kd) then inc(k);
writeln('Количество элементов массива, входящих в диапазон [',nd,',',kd,']=',k);
readln;
end.

uses crt;
const n=20;
var a: array [1..20] of integer;
    i,nd,kd,k,x: integer;
begin
writeln('Дан массив');
for i:=1 to n do
    begin
    x:=random(199);
    a[i]:=x-99; write(a[i]:4);
    end;
writeln;
repeat
writeln('Задайте диапазон:'); readln(nd,kd);
until (nd<kd) and ((nd>-100) and (kd<100));
for i:=1 to n do
    if (a[i]>=nd) and (a[i]<=kd) then inc(k);
writeln('Количество элементов массива, входящих в диапазон [',nd,',',kd,']=',k);
readln;
end.

uses crt;
const nmax=50;
var a: array [1..20] of integer;
    n,i,nd,kd,k,x: integer;
begin
repeat
write('Количество элементов, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
writeln('Заполняем массив');
for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
writeln('Дан массив');
for i:=1 to n do
    write(a[i]:4);
writeln;
repeat
writeln('Задайте диапазон:'); readln(nd,kd);
until (nd<kd) and ((nd>-100) and (kd<100));
for i:=1 to n do
    if (a[i]>=nd) and (a[i]<=kd) then inc(k);
writeln('Количество элементов массива, входящих в диапазон [',nd,',',kd,']=',k);
readln;
end.