望高手相助Pascal中一道求第二大数字的问题答案

Description （题目）

输入n个各不相同的数字，找出其中第二大的数字。

Input （输入）

第一行一个数字，表示n。
第二行有n个各不相同的数字。

Output （输出）

输出一个数字，表示其中第二大的数字。

Sample Input （例子，输入）

8 1 2 3 4 5 6 7 8

Sample Output （例子，输出）

7

Source （提示）

数组

备注：答题需严密，谨慎，完整！！！！！

var
 n,i,j,q1,q2:longint;
 a:array[1..10000] of longint;
begin
 read(n);
 q1:=0;
 q2:=0;
 for i:=1 to n do
  begin
   read(a[i]);
   if a[i]>q1 then q1:=a[i];
  end;
 for i:=1 to n do
  if (a[i]<>q1)and(a[i]>q2) then q2:=a[i];
 writeln(q2);
end.