databaza

program agenda;
{$APPTYPE CONSOLE}
uses SysUtils;
var m,e:array[1..30] of string;
    k:array[1..30] of byte;
    z,i:byte;
    hm:string;
    h:boolean;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte pocet ziakov: ');
  readln(z);
  for i:=1 to z do
    begin
      write('Zadajte meno ',i,' ziaka: ');
      readln(m[i]);
      write('Zadajte email ',i,' ziaka: ');
      readln(e[i]);
      write('Zadajte vreckove ',i,' ziaka: ');
      readln(k[i]);
    end;
  writeln('Vypis databazy.');
  for i:=1 to z do
    begin
      writeln('  ',m[i]:6,'   ',e[i]:20,'   ',k[i]);
    end;
  repeat
    write('Zadajte meno pre vypis udajov: ');
    readln(hm);
    h:=false;
    for i:=1 to length(hm) do
      begin
        if hm = m[i] then
          begin
            writeln('  ',m[i]:6,'   ',e[i]:20,'   ',k[i]);
            h:=true;
          end;
      end;
    if h = false then
      begin
        writeln(' Udaje pre meno "',hm,'" v databazy niesu!');
      end;
  until hm = '0';
  readln;
end.