program struktury;
var
   priznakS:boolean; {maze soubor}
   priznakU:boolean; {Je li ulozen False}


type
    ulo2=record
         jmeno,prijmeni:string;
         vek:integer;
         end;
    typUK=^karta;
    karta=record
    jmeno,prijmeni:string;
    vek:integer;
    dalsi:typUK;
    end;

procedure NOVY();
begin
     if priznakS and not priznakU then begin write ('Nejprve ulozte stavajici soubor');
                                       end;
     writeln ('Zadej nazev noveho souboru');
     readln (soubor);
     assing (f,soubor);
     priznakU:=false;
        NEW(A);
        writeln ('Zadej jmeno');
        readln (Jmeno);
        A^.jmeno:=
        writeln ('Zadej prijmeni');
        readln (Prijmeni);

begin


end.