Súborová databáza

//Napiste program ktory bude ukladat do dvoch suborou tieto udaje: DO jedneho mena priezviska a do druheho mailove adresy
//Program dokaze na zaklade zadaneho mena vyhladat jeho mailovu adresu.
program suborovadatabaza;
{$APPTYPE CONSOLE}
uses SysUtils;
var mena,emaile:text; e,m,hm:string;
    i:byte; vyskyt:boolean;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  assign(mena,'mena.txt'); assign(emaile,'emaile.txt');
  reset(mena); reset(emaile);
  writeln('Vypis databazy: ');
  vyskyt:=false;
  while not eof(mena) do
    begin
      vyskyt:=true;
      readln(mena,m);
      readln(emaile,e);
      writeln('  ',m,' ',e);
    end;
  if vyskyt=false then writeln('  V databazy niesu ziadne udaje!');
  append(mena); append(emaile);
  writeln('Pre ukoncenie zadavania zadajte 0');
  i:=1;
  repeat
    write('Zadajte ',i,' meno: ');
    readln(m);
    if m='0' then break;
    write('Zadajte ',i,' email: ');
    readln(e);
    writeln(mena,m);
    writeln(emaile,e);
    inc(i);
  until m='0';
  close(mena); close(emaile);
  repeat
    reset(mena); reset(emaile);
    write('Zadajte hladane meno: ');
    readln(hm);
    while not eof(mena) do
      begin
        readln(mena,m);
        readln(emaile,e);
        if hm=m then
          begin
            writeln(m,' ma email: ',e);
          end;
      end;
    close(mena); close(emaile);
  until hm='0';
end.