uprava

program upravadatabazy;
{$APPTYPE CONSOLE}
uses SysUtils;
var i,n:byte;
    m,e:array[1..255] of string;
    he:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko ziakov je v triede?: ');
  readln(n);
  for i:=1 to n do
    begin
      write('Zadajte meno ',i,' ziaka: ');
      readln(m[i]);
      write('Zadajte email ',i,' ziaka: ');
      readln(e[i]);
    end;
  writeln('Vypis databazy: ');
  for i:=1 to n do writeln(m[i]:5,' ',e[i]:6);
  writeln('Uprava v databazy: ');
  repeat
    write('Zadajte meno ziaka: ');
    readln(he);
    for i:=1 to n do
      begin
        if he=m[i] then
          begin
            write('Zadajte nove udaje pre ',m[i],': ');
            readln(m[i]);
            writeln(m[i]:5,' ',e[i]:6);
          end;
      end;
  until he='stop';
  readln;
end.