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

uses crt;
const
     n = 5;
type
     mas = array [1..n] of integer;
var 
    m1 : mas;
procedure vvodmas(var m1 : mas; n : integer);
var
   i : integer;
begin
    randomize;
    for i := 1 to n do
              m1[i]:= random(10);
end;
procedure Vyvodmas(m1 : mas; n : integer)
var
    i : integer
for i := 1 to n do
      begin
        write(m1[i]:5);
        writeln;
      end;
end;
begin
   clrsct;
   vvodmas(m1,n);
   vyvodmas(m1,n);
   readln;
end.

uses crt;
const Normal = 7;
const Special = 2;
var T:array[1..100] of integer;
var N,M:integer;
var K,A:word;
begin
writeln('> Write used one line sequence as numbers separaited by space.');
write('< ');
while not eoln do
      begin
           K:=K+1;
           read(T[K]);
      end;
writeln('> write low an high numbers.');
write('< ');
readln(M,N);
writeln('>> Result:');
write('>');
for A:=1 to K do
    begin
         if (T[A]>N) or (T[A]<M)
            then TextColor(Special)
            else TextColor(Normal);
         write(' ',T[A]);
    end;
readln;
end.