Дана последовательность из n чисел.определить сумму трех наибольших чисел

Begin
n1:=a[1]; n2:=n1; n3:=n2;
for i:=2 to n do
if (a[i]>n1) then begin
n3:=n2; n2:=n1; n1:=a[i]
end;
writeln(n1+n2+n3)
end.