uprava 2.0

program upravadatabazy;
{$APPTYPE CONSOLE}
uses SysUtils;
var i,n,j:byte;
    m,c:array[1..255] of string;
    h: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 tel. cislo ',i,' ziaka: ');
      readln(c[i]);
    end;
  writeln('Vypis databazy: ');
  for i:=1 to n do writeln('  ',i,'. ',m[i]:6,' ',c[i]:7);
  writeln('Uprava v databazy: ');
  repeat
    write('Zadajte meno ktore chcete upravit: ');
    readln(h);
    for i:=1 to n do
      begin
        if h=m[i] then
          begin
            write('Zadajte nove cislo pre ',m[i],': ');
            readln(c[i]);
            for j:=1 to n do writeln('  ',j,'. ',m[j]:6,' ',c[j]:7);
          end;
      end;
  until h='stop';
  readln;
end.