Anonymní profil Buckyx – Programujte.com

zdravim mam mensi problem
program uz je ale musim nacitat 2x string v jednom radku z klavesnice
pokud nacitam obe promenne zvlast tak program funguje ale mam pocit ze kdyz najednou tak ne

var m,j,i,n:byte;

    kod,pom:string;

    a,b:array[byte] of string;



begin

  readln(m);



  for j:=1 to m do readln(a[j],b[j]); - tady je ten problem



  readln(n);

  readln(kod);



  for i:=1 to n do begin

    pom:=pom+kod[i];



    for j:=1 to m do if pom=b[j] then begin

      write(a[j],' ');



      pom:='';

    end;

  end;



  writeln;

  readln;

end.