Через массив найти мин. и макс. элемент в множестве отрицательных чисел

program Project1;
const
  nmax = 25;
var
  a: array[1..nmax] of integer;  {Переменная для хранения массива}
  i: integer;  {Вспомогательная переменная для организации циклов}
  n: integer;  {Переменная для хранения значения количества элементов}
  min,max: integer; {Переменные для хранения минимального и максимального значений}
begin
  writeln('Введите количество элементов массива: ');
  readln(n);          {Ввод значения количества элементов массива}
  writeln('Введите массив: ');
  for i:=1 to n do
    begin
      write('a[',i,']=');
      readln(a[i]);       {Ввод значений элементов массива}
    end;
  writeln('Исходный массив: ');
  for i:=1 to n do
    write(a[i]:4);        {Вывод элементов массива в консоль}
  writeln;
  max:= a[1];             {Установка переменных в начальное состояние}
  min:= a[1];
  for i:= 1 to n do
    begin
      if a[i] > max then  {Условие для поиска элементов с максимальным значением}
        max:= a[i];
      if a[i] < min then  {Условие для поиска элементов с минимальным значением}
        min:= a[i];
    end;
  writeln('max = ',max);  {Вывод в консоль элемента с максимальным значением }
  writeln('min = ',min);  {Вывод в консоль элемента с минимальным значением}
  readln;
end.