Chương trình Pascal để giải quyết bài toán trên như sau:

```pascal
program TimGiaTriLonThuHai;
var
n, i, max1, max2, num: integer;
begin
write('Nhap so luong phan tu: ');
readln(n);

write('Nhap danh sach: ');
read(max1);
max2 := max1;

for i := 2 to n do
begin
read(num);

if num > max1 then
begin
max2 := max1;
max1 := num;
end
else if (num > max2) and (num < max1) then
max2 := num;
end;

if max2 = max1 then
writeln('Khong tim thay gia tri lon thu hai.')
else
writeln('Gia tri lon thu hai la: ', max2);

readln;
end.
```

Khi chạy chương trình, người dùng sẽ được yêu cầu nhập số lượng phần tử trong danh sách và sau đó nhập từng phần tử của danh sách. Chương trình sẽ tìm và in ra giá trị lớn thứ hai trong danh sách hoặc thông báo "Không tìm thấy giá trị lớn thứ hai" nếu không có giá trị lớn thứ hai.