S tím ukazatelem má msx. pravdu. Jeho kód bych přesto lehce upravil:

rewrite(f); {opravil som reset na rewrite}
pom:=zac;
while pom<> nil do
begin
  writeln(pom^.meno);
  writeln(f,pom^.meno); {opravil som to tak, ako som spomenul vyssie}
  writeln(f,pom^.priez); {rulda: kazdou polozku na samostatny radek, jinak meno+priez pozdeji nacte jako jednu polozku}
  pom:=pom^.dalsi;
end;
close(f);

while zac<> nil do zrus_prvy; {ochrana proti nasobnemu nacitani}
reset(f); {Assign uz Pavel udelal}
while NOT Eof(F) do {ja bych se while nebal}
begin
  Readln(f, meno1); {kazda polozka je na samostatnem radku.}
  if NOT Eof(F) then Readln(F, priez1)
    else priez1:= '';
  novy_kon(meno1, priez1);
end;
close(f);