Дано действительные числа а1 … а20. Все числа различны. Поменять местами наибольший и последний элемент последовательности — Pascal(Паскаль)

uses crt;
var a:array[1..100] of byte;
     n,i,j,max,temp:byte;
begin
 clrscr;
randomize;
 writeln('Введите количество элементов массива');
 readln(n);
 for i:=1 to n do
 repeat
    a[i]:=random(n*3);
  for j:=1 to i-1 do
   if a[i]=a[j] then break;
 until(a[i]<>a[j]);
 
writeln('Данный массив');
 for i:=1 to n do
 write(a[i],' ');
 
 max:=1;
 for i:=2 to n do
  if a[i]>a[max] then max:=i;
 
 temp:=a[n];
 a[n]:=a[max];
 a[max]:=temp;
writeln;
writeln('Полученный массив');
 for i:=1 to n do
 write(a[i],' ');
readln;
 
 
end.