[Pascal Coding] Chương trình tìm số lớn thứ 2

PROGRAM FSQuocBinh;
uses crt;
var a:array [1..1000] of longint;
i,n,max,kq: longint;
kt: boolean;
begin
clrscr;
Textcolor(Red);
Writeln('Hellu, chuong trinh tim so lon thu 2 by F.S Quoc Binh');
Textcolor(Yellow);
Writeln('Loading...');
Delay(1000);
clrscr;
Write('So Phan Tu n='); Readln(n);
For i:=1 to n do
begin
Write('Nhap phan tu thu ',i,'='); Readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
begin
if (max<a[i]) then
Begin
kq:=max;
max:=a[i];
End;
If (a[i]<max) and (a[i]>kq) then kq:=a[i];
End;
kt:=true;
for i:=1 to n do if a[i]<max then
begin
kt:=false;
break;
end;
Textcolor(Green);
Writeln('Vay so lon thu 2 la:');
If kt=true then write(max)
else write(kq);
Delay(10000);
End.