katalog

//Program si vypýta nazvy výrobkov a ich cenu program umozni urobit vypis prvkov pola na základe zadaného názvu vypíše jeho cenu
program katalog;
{$APPTYPE CONSOLE}
uses
  SysUtils,
var n,i:byte;
    np:array[1..255] of string;
    cp:array[1..255] of word;
    hc:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko produkov chcete zadat?: ');
  readln(n);
  for i:=1 to n do
    begin
      write('Zadajte nazov ',i,' produktu: ');
      readln(np[i]);
      write('Zadajte cenu ',i,' produktu: ');
      readln(cp[i]);
    end;
  for i:=1 to n do
    begin
      writeln('  ',np[i]:5,' ',cp[i]);
    end;
  writeln('Hladanie ceny produktu. Ukoncenie "stop"');
  repeat
    write('Zadajte nazov produktu: ');
    readln(hc);
    for i:=1 to n do
      begin
        if hc=np[i] then writeln('  Cena produktu ',np[i],' je: ',cp[i]);
      end;
  until (hc='stop') or (hc='Stop') or (hc='STOP');
  writeln('Dakujeme za pouzitie nasho programu!');
  writeln('Pre ukoncenie programu stlacte ENTER');
  readln;
end.