//Bude do dvoch suborov zapisovat anglicke a slovenske slovicka slovSJ, slovAJ
//Program umozni preložiť zadané slovíčko ktoré sa nachádza v súbory
program nejakauloha;
{$APPTYPE CONSOLE}
uses SysUtils;
var sj,aj:text; sk,en,hs:string;
    n,i:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  assign(sj,'slovsj.txt'); assign(aj,'slovaj.txt');
  reset(sj); reset(aj);
  writeln('VYPIS DATABAZY');
  while not eof(sj) do
    begin
      readln(sj,sk);
      readln(aj,en);
      writeln(sk:8,' ',en);
    end;
  close(sj); close(aj);
  writeln('Zadajte 0 pre preklad');
  write('Kolko slovov chcete zadat?: ');
  readln(n);
  append(sj); append(aj);
  for i:=1 to n do
    begin
      write('Zadajte ',i,'. sk slovo: ');
      readln(sk);
      writeln(sj,sk);
      write('Zadajte ',i,'. en slovo: ');
      readln(en);
      writeln(aj,en);
    end;
  close(sj); close(aj);
  reset(sj); reset(aj);
  write('Zadajte slovo ktore chcete prelozit: ');
  readln(hs);
  while not eof(aj) do
    begin
      readln(aj,en);
      readln(sj,sk);
      if hs=en then writeln(hs,' = ',sk);
      if hs=sk then writeln(hs,' = ',en);
    end;
  readln;
end.