jj, to som si vsimol, som to odstranil ale az po tom, ako som to nauploadoval.
Freepascal mi chybu nehadzal.
teraz mam ale problem s nacitanim zo suboru. Ak chce niekto poradit, tak tu mate zdrojak-6 je ulozenie do sub, 7 - nacitanie zo sub. ulozenie mi asi ide(nieco sa do suboru ulozi), ale nacitanie nie.
ak to bude niekto skusat, tak si tam este pridajte assign a rewrite.

   '6': begin
         reset(f);
         pom:=zac;
         while pom<> nil do
          begin
           writeln(pom^.meno);;
           write(f,pom);
           pom:=pom^.dalsi;
          end;
         close(f);
         readln;
        end;
   '7': begin
         reset(f);
         read(f,zac);
          while not eof(f) do
           read(f,pom);
         close(f)        end;

skusal som to aj tak, ze som si chcel najprv nacitat zac(prva polozka v sub),potom kon(posledna polozka) a potom som chcel citat zo sub pokial sa zac <> kon. Problem ale je vobec to nacitanie hocicoho zo suboru.