Определить минимальное число из введенных чисел

var
  n, i, m: integer;
  min, t: real;
  found: boolean;
 
begin
  repeat
    write('Количество чисел = ');
    readln(n)
  until n > 0;;
  writeln('Введите ', n, ' чисел:');
  i := 1;
  repeat
    write(i, ' число = ');
    if i > 1
      then begin
        readln(t);
        if t < min then min := t
      end
      else readln(min);
    inc(i)
  until i > n;
  writeln('Минимальное число = ', min);
  writeln('Задайте диапазон чисел.');
  write('Нижняя граница = ');
  readln(n);
  repeat
    write('Верхняя граница >= ', n, ';  верхняя граница = ');
    readln(m)
  until m >= n;
  if not odd(n) then inc(n);
  if m > 99 then m := 99;
  writeln('Нечётные двузначные числа из заданного диапазона:');
  found := false;
    repeat
      if (10 <= abs(n)) and (abs(n) <= 99)
        then begin
          write(n, ' ');
          found := true
        end;
      inc(n, 2)
    until n > m;
  if not found then write('не найдены');
  readln
end.