Дан массив а1, а2,… an действительных числе. Нужно найти, какие числа принадлежат отрезку [c;d] — Pascal(Паскаль)

program vad2211;
uses crt;
var
   a:array[1..100] of integer;
   i,n,c,d:integer;
begin
 randomize;
 clrscr;
 repeat
  write('razmernost'' massiva: ');
  readln(n);
 until n in [1..100];
 writeln('massiv:');
 for i:=1 to n do
 begin
  a[i]:=random(21)-10;
  write(a[i]:4);
 end;
 writeln;
 writeln('otrezok [c,d]');
 repeat
 write('c=');readln(c);
 write('d=');readln(d);
 until c<=d;
 writeln('chisla prinadlezhechie otrezku [',c,',',d,']');
 for i:=1 to n do
  if (a[i]>=c) and (a[i]<=d) then write(a[i]:4);
 readln;
end.