Исправте ошибку

[Gleb7]

Procedure Viborom(a:mas);
var i,j,n,k:byte;
max,b:mas;
begin
for j:=n downto 2 do
begin
max:=a[1];
k:=1;
for i:=2 to j do
if a[i]>max
then
begin
max:=a[i];
k:=i;
end;
b:=a[k];
a[k]:=a[j];
a[j]:=b
writeln(a[i]:4);
end;
end