Составить программу нахождения наибольшего среди тех элементов одномерного массива, которые лежат в интервале (C,D) — Pascal(Паскаль)

uses crt;
const n=10;
var
A,B: array [1..100] of integer;
c,d,max,i,k,l: integer;
begin
clrscr;
write ('vvedite c: ');
readln (c);
write ('vvedite d: ');
readln (d);
k:=0;
for i:=1 to N do
begin
a[i]:=random(50);
write (a[i]:5);
if (A[i]<D) and (a[i]>c)
then
begin
inc(k); B[k]:=A[i];
end;
end;
writeln;
if k<>0 then
begin
for k:=1 to k do
write (b[k]:5);
max:=b[1];
for k:=2 to k do
if b[k]>max then max:=b[k];
writeln;
writeln ('max=',max); end
else writeln ('nety takix elementov');
end.