uses crt;
var ln, lnh, lb: integer;
var a:array[1..5] of integer;
function max(x, y: integer): integer;
begin
if x>=y then
max:=x
else
max:=y;
end;
begin
clrscr;
textcolor (white);
write ('Nhap gia tri cua cac phan tu: '); read (a[1], a[2], a[3], a[4], a[5]);
ln:=max(max(max(max(a[1], a[2]), a[3]), a[4]), a[5]);
if ln=a[1] then
begin
lnh:=max(max(max(a[2], a[3]), a[4]), a[5]);
writeln ('gia tri lon nhi la: ',lnh);
end;
if ln=a[2] then
begin
lnh:=max(max(max(a[1], a[3]), a[4]), a[5]);
writeln ('gia tri lon nhi la: ',lnh);
end;
if ln=a[3] then
begin
lnh:=max(max(max(a[1], a[2]), a[4]), a[5]);
writeln ('gia tri lon nhi la: ',lnh);
end;
if ln=a[4] then
begin
lnh:=max(max(max(a[1], a[2]), a[3]), a[5]);
writeln ('gia tri lon nhi la: ',lnh);
end;
if ln=a[5] then
begin
lnh:=max(max(max(a[1], a[2]), a[3]), a[4]);
writeln ('gia tri lon nhi la: ',lnh);
end;
readln;
readln;
end.
end.

hai cái end. đó ko có lỗi gì đâu nha

uses crt;
var i,maxValue,max:longint;
    a:array[1..5]of longint;
begin
clrscr;
    for i:=1 to 5 do readln(a[i]);
    maxValue:=a[1]; max:=a[1];
    for i:=2 to 5 do
        if a[i]>maxValue then maxValue:=a[i];
    for i:=2 to 5 do
        begin
            if (a[i]>max) and (max<maxValue) and (a[i]<maxValue) then
                max:=a[i];
        end;
    writeln(max);
readln;
end.