С клавиатуры задан массив из N элементов. Вычислить минимальный и максимальный элементы.

const

  n = 5;   var   a: array[1..n, 1..n] of integer;   min, i, j, maxi, maxj: integer;   begin   randomize;   maxi := 1;   maxj := 2;   for i := 1 to n do   begin     for j := 1 to n do     begin       a[i, j] := -n div 2 + random(n * n);       write(a[i, j]:4);       if (i < j) and (a[i, j] > a[maxi, maxj]) then       begin         maxi := i;         maxj := j;       end;     end;     writeln;   end;   writeln('Max: ', a[maxi, maxj]);   min := MaxInt;   for i := 1 to n do     if a[i, n - i + 1] < min then       min := a[i, n - i + 1];   writeln('Min: : ', min); end.