паскаль(списки)

[masterlomaster]

 assign(f,'spisok.txt');
  rewrite(f);


  repeat
  new(p);
  writeln('vvedite element');
  readln(k)
  p^.elem:=k;
  p^.next:=nil;
  write(f,p^.elem);
  until h='n' ;

  close(f);

Как правельно ввести элемент?. Если я присваиваю

 p^.elem:='g'

то все нормально, когда вот так

 
readln(k);
p^.elem:=k;

файл оказывается пустой.

[Cannibal]

проверь, читается ли K

[masterlomaster]

Ребят, скиньте пожалуйста ссылку или книжку с хорошей теорией: Указатели и динамическая память(списки).

Интересует ввод и вывод списков.


p.s столько уже перечитал, только запутался.

[masterlomaster]

program spisok;

type ukaz = ^zveno;
     zveno = record
        elem:char;
        next:ukaz;
     end;
var p,st:ukaz;
    el:char;
    f:text;

    begin
     assign(f,'spisok.txt');
     rewrite(f);
     readln(el);
     new(p);
     p^.elem:=el;
     p^.next:=nil;
     write(f,p^.elem);
     close(f);
    end.

Вводится только один элемент, как много ввести?