чтение с текстового файла

[salwator]

Всем привет уважаемые программисты
Помогите исправить ошибку
Не получается не получается считать с файла и вывести на экран
Сама программа запускается,но ни чего не выводит

program z9;
uses crt;
type uk=^elem;
     elem=record
                FIO,Nom_kart,Telef,INN,Data,Time:string;
                prev:uk;
                next:uk;
     end;
var head:uk;
    a,i:integer;
    f:text;
    r:elem;

procedure init;
begin
     head:=nil;
end;

procedure add1(var head,cur:uk);
begin
     head:=cur;
     head^.next:=nil;
end;

procedure add_between(var prev,cur:uk);
begin
     cur^.next:=prev^.next;
     prev^.next:=cur;
end;

procedure pered(var head,cur:uk);
begin
     cur^.next:=head;
     head:=cur;
end;

procedure sortirovka(var head:uk;FIO,Nom_kart,Telef,INN,Data,Time:string);
var cur,p:uk;
begin
     with r do
     begin
          new(cur);
          cur^.FIO:=FIO;
          cur^.Nom_kart:=Nom_kart;
          cur^.Telef:=Telef;
          cur^.INN:=INN;
          cur^.Data:=Data;
          cur^.Time:=Time;
     end;
          if head=nil then add1(head,cur)
                      else
                      if cur^.Data<head^.Data then pered(head,cur)
                      else begin
                                p:=head;
                                while (p^.next^.Data<cur^.Data) and (p^.next<>nil) do
                                p:=p^.next;
                                add_between(p,cur);
                           end;
end;

procedure zapol(var f:text);
var FIO,Nom_kart,Telef,INN,Data,Time,a:string;
    p:uk;
begin
     assign(f,'kurs.txt');
     reset(f);
     while not eof(f) do
     begin
          readln(f,a);
          FIO:=copy(a,1,18);
          Nom_kart:=copy(a,19,9);
          Telef:=copy(a,29,14);
          INN:=copy(a,42,15);
          Data:=copy(a,57,12);
          Time:=copy(a,69,5);
          p:=p^.next;
          sortirovka(head,FIO,Nom_kart,Telef,INN,Data,Time);
     end;
     close(f);
end;

procedure vivod(head:uk);
var p:uk;
begin
     p:=head;
     while p<>nil do
     begin
          write(p^.FIO:10);
          write(p^.Nom_kart:5);
          write(p^.Telef:5);
          write(p^.INN:5);
          write(p^.Data:5);
          write(p^.Time:5);
          p:=p^.next;
          writeln;
     end;
end;