uses crt;
var
f:text;
a,b,c,d,vastus,synad,fail:string;
e,r:integer;
begin
 clrscr;
 synad:='Pole liitsyna !';
 writeln('Faili nimi:');
 readln(fail);
 assign(f,fail+'.txt');
 reset(f);
 readln(f,a);
 readln(f,b);
 e:=1;
 r:=0;
 while not eof(f) do
      begin
          if e=1 then
          begin
            if b=copy(a,1,length(b)) then
            begin
              reset(f);
              repeat
                readln(f,c);
                if a=b+c then vastus:='jah';
                if (vastus='jah') and (r=0) then
                begin
                 synad:='on';
                 writeln(b,'-',c);
                 r:=1;
                end;
             until (eof(f));
            end;
           if vastus='jah' then
              begin
                e:=0;
                d:=b;
                reset(f);
                readln(f,b);
                vastus:='sd';
                r:=0;
              end;
       end;
      readln(f,b);
      if e=2 then e:=1;
      if b=d then
      begin
       e:=2;
       d:='3rwe';
      end;
      end;
if synad<>'on' then writeln(synad);
readln;
end.