Evidencia

program evidencia;
{$APPTYPE CONSOLE}
uses SysUtils;
var ps,pt,i,j:byte; ht:string;
    nt:array[1..255,1..255] of string;
    pk:array[1..255,1..255] of byte;
    ct:array[1..255,1..255] of single;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte pocet skladov: ');
  readln(ps);
  write('Zadajte pocet tovarov: ');
  readln(pt);
  for i:=1 to ps do
    begin
      for j:=1 to pt do
        begin
          write('Zadajte nazov ',j,'. tovaru v ',i,' sklade: ');
          readln(nt[i,j]);
          write('Zadajte pocet kusov ',j,'. tovaru v ',i,' sklade: ');
          readln(pk[i,j]);
          write('Zadajte cenu za kus ',j,'. tovaru v ',i,' sklade: ');
          readln(ct[i,j]);
        end;
    end;
  for i:=1 to ps do
    begin
      write('#',i,' ');
      for j:=1 to pt do
        begin
          write(nt[i,j]:5,pk[i,j]:3,ct[i,j]:6:2,', ');
        end;
      writeln;
    end;
  writeln('Vyhladavanie tovaru (Ukoncenie stop)');
  repeat
    write('Zadajte nazov hladaneho tovaru: ');
    readln(ht);
    if (ht='Stop') or (ht='stop') or (ht='stoP') or (ht='STOP') then break
    else begin
    for i:=1 to ps do
      begin
        for j:=1 to pt do
          begin
            if ht=nt[i,j] then
              begin
                writeln(nt[i,j]:5,pk[i,j]:3,ct[i,j]:9:2);
                writeln('Produk sa nachadza v ',i,'. sklade.');
              end;
          end;
      end;
    end;
  until (ht='Stop') or (ht='stop') or (ht='stoP') or (ht='STOP');
  writeln('Pre ukoncenie programu stlacte ENTER');
  readln;
end.