Составить программу для перестановки местами в линейной таблице(состоящих из целых чисел) меньшего и большего элементов — Pascal(Паскаль)

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,j,j1,n,max,q,min:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Max:=x[1];
for i:=1 to n do
  if x[i]>=max then begin
                    max:=x[i];
                    j:=i;
                    end;
Writeln (' Maxim element = ',max);
Writeln;
min:=x[1];
for i:=1 to n do
  if x[i]<=min then begin
                         min:=x[i];
                         j1:=i;
                         end;
writeln ('Minimalnyi element = ',min);
q:=x[j];
x[j]:=x[j1];
x[j1]:=q;
writeln (' HoBuy massiv ');
For i:=1 to n do write (x[i]:3);
Readln
end.