LINGVO PASCAL

var n,x,i:longint;
    maxx:string;
    s:ansistring;
    a:array[0..9] of string;
    d,k:longint;

procedure tach_tu;
var i:longint;
begin
    d:=0;
    for i:=1 to length(s) do
        if s[i]<>' ' then a[d]:=a[d]+s[i]
        else inc(d);
end;

procedure giai;
begin
    readln(x);
    maxx:='';
    if x=0 then writeln(a[0])    //test hiem
    else
    begin
        while x>0 do
        begin
            k:=x mod 10;
            x:=x div 10;
            if a[k]>maxx then maxx:=a[k];
        end;
        writeln(maxx);
    end;
end;

begin
    assign(input, 'lingvo.inp');reset(input);
    assign(output, 'lingvo.out'); rewrite(output);
    readln(s);
    tach_tu;
    readln(n);
       for i:=1 to n do
        giai;
end.