CBXAUMAX PASCAL

var a: array[1..1000] of string;
    maxx,n: longint;

procedure nhap;
var     i: longint;
begin
    readln(n);
    for i:=1 to n do readln(a[i]);
end;

procedure lonnhat;
var     i: longint;
begin
    maxx:=1;
    for i:=2 to n do
        if a[i]>a[maxx] then maxx:=i;
    writeln(a[maxx]);
end;

procedure dainhat;
var    dmax,i: longint;
begin
    dmax:=1
    for i:=1 to n do
        if length(a[i])>length(a[dmax]) then
             dmax:=i;
    writeln(a[dmax]);
end;
begin
        assign(input,'cbxaumax.inp'); reset(input);
        assign(output,'cbxaumax.out'); rewrite(output);
        nhap;
        lonnhat;
        dainhat;
end.