program banko_kodas;

   const PRF = 'KODAS.DAT';
         RZF = 'KODAS.REZ';

   procedure dekoduoti (var kodas: string; zodis, eilute: string);
     var i, nr: integer;
         raide: char;
         nr_s: string;
   begin
     kodas := '';
     for i := 1 to length (zodis) do
       zodis[i] := upcase (zodis[i]);
     for i := 1 to length (eilute) do
       begin
         raide := upcase(eilute[i]);
         nr := pos (raide, zodis);
         if nr > 0 { jei radome raide }
            then begin { raidę atitinkantį skaitmenį prijungiame prie kodo }
                   str(nr-1, nr_s);
                   kodas := kodas+nr_s
                 end;
       end;
   end; { dekoduoti }

   procedure skaityti (var zodis, eilute: string);
     var f: text;
   begin
     assign (f, PRF);
     reset  (f);
     readln (f, zodis);
     readln (f, eilute);
     close  (f);
   end; { skaityti }

   procedure rasyti (kodas: string);
     var f: text;
   begin
     assign (f, RZF);
     rewrite (f);
     writeln (f, kodas);
     close (f);
   end; { rasyti }

  var zodis, eilute, kodas: string;
begin
  skaityti (zodis, eilute);
  dekoduoti (kodas, zodis, eilute);
  rasyti (kodas);
end.