надо написать программу в паскале. Найти два наибольшых значения последователности, помогите с решением люди ?

Var a: array[1..100] of real
max: real
i: integer;
Begin
For I:=1 to 100 do begin
Readln(a);
if a>max then Max:=a;
end;
Writeln(max);
max:=0;
For I:=1 to 100 do begin
Readln(a);
if a>max then Max:=a;
end;
Writeln(max);
end.