Поиск минимума/максимума массива и их индексов — Pascal(Паскаль)

var
  a: array [1 .. 100] of integer;
  N, i, min, max: integer;

begin
  write('N -> ');
  readln(N); { считываем размер массива }
  write('Input array -> ');
  for i := 1 to N do
    read(a[i]); { считываем сам массив }
  readln;
  min := 1;
  max := 2;
  for i := 1 to N do
    if a[i] > a[max] then
      max := i
    else if a[i] < a[min] then
      min := i;
  writeln('MAX = A[', max, '] = ', a[max]);
  writeln('MIN = A[', min, '] = ', a[min]);
  readln;

end.