Có bài pascal nhờ các anh chị giúp nè

[Maihoaca]

Nhập một dãy gồm n số hạng và in ra màn hình số hạng lớn thứ 2
Các pác làm nhanh hộ e nha thanks

 

[dailuong]

Mọi người tham khảo thử nha:
max=a[1];
max2=a[1];
for i=2 to n do
begin
if (a>max)
begin
max2=max;
max=a+i;
end
else
if (a>max2 || max2==max)
max2=a;
end;
printf("So lon thu 2 trong mang la ",max2);