zapis - DOKONCENY PROGRAM :-)

//Napiste program na evidenciu osobnych udajov: meno, priezvisko, mail a telefonne cislo.
//Program tieto udaje zapisuje do suboru. program zaroven umozni pomocou priezviska vyhladat osobne udaje
//Vypis je samozrejmost :-)
program evidenciaosobnych;
{$APPTYPE CONSOLE}
uses SysUtils;
var f:text; i,n:byte;
    u,h:string;
    m,p,e,t:array[1..255] of string;
    z:char;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  assign(f,'evidencia.txt');
  append(f);
  i:=1;
  writeln('Zadavanie ukoncite 0!');
  repeat
    write('Zadajte ',i,' meno: ');
    readln(u);
    if u='0' then break;
    write(f,u,' ');
    write('Zadajte ',i,' priezvisko: ');
    readln(u);
    write(f,u,' ');
    write('Zadajte ',i,' email: ');
    readln(u);
    write(f,u,' ');
    write('Zadajte ',i,' telefonne cislo: ');
    readln(u);
    writeln(f,u);
    inc(i);
  until u='0';
  close(f);
  reset(f);
  i:=1;
  n:=1;
  while not eof(f) do
    begin
      while not eoln(f) do
        begin
          repeat
            read(f,z);
            if z<>' ' then m[i]:=m[i]+z;
          until z=' ';
          repeat
            read(f,z);
            if z<>' ' then p[i]:=p[i]+z;
          until z=' ';
          repeat
            read(f,z);
            if z<>' ' then e[i]:=e[i]+z;
          until z=' ';
          repeat
            read(f,z);
            t[i]:=t[i]+z;
          until eoln(f);
          inc(n);
          inc(i);
        end;
      readln(f);
    end;
  close(f);
  for i:=1 to n do
    begin
      writeln(m[i],' ',p[i],' ',e[i],' ',t[i]);
        //Nekopiruj dik
    end;
  repeat
    writeln('Vyhladavanie ukoncite 0!');
    write('Zadajte priezvisko: ');
    readln(h);
    for i:=1 to n do
      begin
        if h=p[i] then writeln(m[i],' ',p[i],' ',e[i],' ',t[i]);
      end;
  until h='0';
  writeln('Pre ukoncenie programu stlacte klavesu.');
  readln;
end.