Kode Program Pascal untuk nilai maksimum 1 dan 2

program makspertamakedua;
uses wincrt;
type
    data=array[1..10] of integer;
var
   i,n,maks1,maks2:integer;
   x:data;
begin
     write('input banyaknya data =');readln(n);
     for i:=1 to n do
     begin
     write('data ke-',i,' =');readln(x[i]);
     end;
     maks1:= x[1];
     for i:=2 to n do
     begin
     if x[i]>maks1 then
     begin
     maks2:=maks1;
     maks1:=x[i]
     end else
     begin
     maks2:=x[i];maks1:=maks1
     end;
     end;
     writeln('nilai maksimum 1 = ',maks1);
     writeln('nilai maksimum 2 = ',maks2);
end.