Algoritmizace #6

// EXE: http://machalda.cekuj.net/d.php?f=31

program dynamicka_jedna;
type typUkazatel = ^typZaznam;
     typZaznam = record
                 jmeno:string;
                 prijmeni:string;
                 rokNarozeni:integer;
                 dalsi:typUkazatel;
                 end;
var zaznam:typUkazatel;
    prvni:typUkazatel;
    pom:integer;

procedure pridejZaznam();
begin
     writeln('#          Zadej jmeno');
     write('#->          jmeno: ');
     readln(zaznam^.jmeno);
     writeln('#          Zadej prijmeni');
     write('#->          prijmeni: ');
     readln(zaznam^.prijmeni);
     writeln('#          Zadej rok narozeni ');
     write('#->          rok: ');
     readln(zaznam^.rokNarozeni);
     new(zaznam^.dalsi);
     zaznam:=zaznam^.dalsi;
     zaznam^.dalsi:=nil;
end;

procedure vypisZaznamy();
begin
     zaznam:= prvni;
     while zaznam^.dalsi <> nil do
     begin
               writeln('#');
               writeln('#####################################');
               writeln('#          Jmeno: ', zaznam^.jmeno);
               writeln('#          Prijmeni: ', zaznam^.prijmeni);
               writeln('#          Rok narozeni: ', zaznam^.rokNarozeni);
               writeln('#####################################');

               zaznam := zaznam^.dalsi;
     end;
end;
begin
     writeln('############################## BEGIN ##############################');
     new(zaznam);
     prvni:=zaznam;
     repeat
     writeln('#');
     writeln('#          1| Pridat zaznam ');
     writeln('#          2| Vypsat zaznamy ');
     writeln('#          0| Ukocit program ');
     writeln('#____________________________');
     write('#->          volba: ');
     readln(pom);
     case pom of
     1: pridejZaznam();
     2: vypisZaznamy();
     else pom := 0;
     end;
     until pom = 0;
     writeln('############################### END ###############################');
end.