В первой строке число N , во второй строке N чисел . абсолютное значение каждого элемента не превышает mаxint .Найти в массиве по порядку наибольший и первый по порядку наименьший элемент, поменяйте их местами.решите с помощью сортировкой подсчетом.Полученный массив выводите в файл — Pascal(Паскаль)

input.txt
6
2 1 4 7 7 5


output.txt
2 7 4 1 7 5

uses
  crt;
var
  i,j,k,n,max,min: integer;
  f: text;
  a: array [1..20] of integer;
begin
  clrscr;
  assign(f,'input.txt');
  reset(f);
  readln(f,n);
  for i:= 1 to n do
  begin
    read(f,a[i]);
    write(a[i],' ');
  end;
  close(f);
  max:=a[1];
  min:=a[1];
  for i:= 2 to n do
  begin
    if a[i]>max then
    begin
      max:=a[i];
      j:=i;
    end;
    if a[i]<min then
    begin
      min:=a[i];
      k:=i;
    end;
  end;
  writeln;
  a[j]:=min;
  a[k]:=max;
  assign(f,'output.txt');
  rewrite(f);
  for i:= 1 to n do
  begin
    write(a[i],' ');
    write(f,a[i],' ');
  end;
  close(f);
  readkey;
end.