Найти номер максимального и минимального элементов массива, попавших в заданный интервал

program Project1;
const n=100;
var
   x:array[0..n] of real;
   error:boolean;
   c,d:real;
   i:integer;
   min,max:real;
begin
   writeln('Vvedite c,d');
   readln(c,d);
   error:=false;
   if (0>c) or (c>d) or (d>n) then
      error:=true;
   if not error then
   begin
      randomize;
      for i:=0 to n do
      begin
         x[i]:=random(99);
         write(x[i]);
         write(' ');
      end;
      writeln;
      min:=x[c];
      max:=x[c];
      for i:=c+1 to d do
      begin
         if (x[i]<min) then min:=x[i];
         if (x[i]>max) then max:=x[i];
      end;
      writeln('MIN= ',min);
      writeln('MAX= ',max);
   end else
      writeln('Nevernye parametry');
   readln;
end.

program Project1;
const n=100;
var
   x:array[1..n] of real;
   c,d:real;
   m,i,k:integer;
   min,max:real;
begin
randomize;
repeat
write('Размер массива от 2 до 100 m=');
readln(m);
until  m in [2..100];
writeln('Масcив');
for i:=1 to m do
 begin
  x[i]:=20*random;
  write(x[i]:5:1);
 end;
writeln;
repeat
writeln('Введите диапазон c<d');
readln(c,d);
until c<d;
min:=d;
max:=c;
k:=0;
for i:=1 to m do
if(x[i]>c)and(x[i]<d) then
 begin
  k:=1;
  if x[i]<min then min:=x[i];
  if x[i]>max then max:=x[i];
 end;
if k=0 then write('Нет чисел из интервала (',c:0:1,';',d:0:1,')')
else
 begin
   writeln('MIN= ',min:0:1);
   writeln('MAX= ',max:0:1);
 end;
readln;
end.