Pascal ABC.Net Вводится массив из N целых чисел. Поменять в нем местами самое большое и само маленькое числа.

var n, i, min, max, min_i, max_i, tmp: integer; a:array[1..100] of integer; begin    readln(n);    for i := 1 to n do        read(a[i]);    min := a[1];    max := a[1];    min_i := 1; {номер минимального}    max_i := 1;    for i := 2 to n do    begin        if min > a[i] then        begin           min := a[i];           min_i := i;        end;        if max < a[i] then        begin           max := a[i];           max_i := i;        end;    end;    tmp := a[max_i];    a[max_i] := a[min_i];    a[min_i] := tmp;    for i := 1 to n do        write(a[i], ' '); end.