Preklad

//napiste program ktory umozni preklad slovicka do cudzieho jazyka
program prekladac;
{$APPTYPE CONSOLE}
uses SysUtils;
var n,i:byte;
    sks,ajs:array[1..255] of string;
    hs:string;
    ns:boolean;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte pocet slov, ktore chcete zadat: ');
  readln(n);
  for i:=1 to n do
    begin
      write('Zadajte ',i,'. slovo v Slovencine: ');
      readln(sks[i]);
      write('Zadajte ',i,'. slovo v Anglictine: ');
      readln(ajs[i]);
    end;
  for i:=1 to n do
    begin
      writeln(sks[i],' - ',ajs[i]);
    end;
  writeln('Ake slovo chcete prelozit?: ');
  readln(hs);
  ns:=false;
  for i:=1 to n do
    begin
      if (hs=sks[i]) or (hs=ajs[i]) then ns:=true
        else ns:=false;
      if ns=true then writeln(sks[i],' - ',ajs[i]);
    end;
  readln;
end.