трудность перестановки в массиве

program m10;
uses crt;
var z,b,min,max,min_n,max_n:integer;
    a:array[1..10] of integer;
begin
     clrscr;
     randomize;
     for z:=1 to 10 do
     begin
         a[z]:=random(100);
         write(a[z],' ');
     end;
     writeln('');
     {------------------------}
     min:=32767; max:=-32767;
     for z:=1 to 10 do
     begin
          if a[z]>max then begin max:=a[z]; max_n:=z; end;
          if a[z]<min then begin min:=a[z]; min_n:=z; end;
     end;
     b:=a[max_n];
     a[max_n]:=a[min_n];
     a[min_n]:=b;
     {------------------------}
     for z:=1 to 10 do
     begin
        write(a[z],' ');
     end;
end.

program m10;
uses crt;
var z,b,min,max,min_n,max_n,k:integer;
    a:array[1..100] of integer;
begin
     clrscr;
     write (' Kol-vo elementov =');
     Readln (k);
     for z:=1 to k do begin
                      write (' Vvedite ' ,z, ' element ');
                      Readln (a[z]);
                      end;
 
     writeln('');
     {------------------------}
     min:=32767; max:=-32767;
     for z:=1 to k do
     begin
          if a[z]>max then begin max:=a[z]; max_n:=z; end;
          if a[z]<min then begin min:=a[z]; min_n:=z; end;
     end;
     b:=a[max_n];
     a[max_n]:=a[min_n];
     a[min_n]:=b;
     {------------------------}
     for z:=1 to k do
     begin
        write(a[z],' ');
     end;
Readln
end.