Дан массив из 10 положительных чисел. А(N)=(a0....a10). найти максимальный элемент массива и поменять местами с последним

uses crt;const n=10;var a:array[1..n] of integer;i,max,k:integer;beginrandomize;for i:=1 to n dobegina[i]:=random(30);writeln(a[i]);end;writeln;max:=0;for i:=1 to n dobeginif a[i]>max then beginmax:=a[i];k:=i;end;end;a[k]:=a[k]+a[n];a[n]:=a[k]-a[n];a[k]:=a[k]-a[n];for i:=1 to n dowriteln(a[i]);end.