Запись файла в двухсвязний список.

[pj-infest]

доброго вечера форумчане.
если не чоень трудно, то помогите пожалуйсто студенту

проблема моя возникла при написании процедури записи з файла у двухсв’ясний список.

сначала исполняєтся процедура start

procedure start;
begin
     new(startel);          {init list}
     list:=startel;
     list^.next:=nil;
     list^.predd:=nil;
   
     init_list;

     main_menu;
end;

из етой процедури визиваетса процедура init_list

procedure init_list;
var
   adress:string;
   mf: file of lst;
begin
     clrscr;
     writeln('input adress of data-file');
     readln(adress);
     assign(mf,adress);
     while not eof(mf) do
           begin
           new(list^.next);
           list^.next^.predd:=list;
           list:=list^.next;
           list^.next:=nil;
           read(mf,list^.data);
           end;
end;

проблема возникает в сторке read(mf,list^.data);
ошибка 26 type mistmatch;

роздел описов типов и сменних виглядит так:

program  mars;
uses crt;
type
    dat=record
        prizv:string[15];
        name:string[15];
        rik:string[4];
        kurs:byte;
        phone:string[10];
        programing:byte;
        fizuka:byte;
        matematuka:byte;
        mova:byte;
    end;
type
    pointer=^lst;
    lst=record
	next:pointer;
        predd:pointer;
        data:dat;
end;
var
	startel,list,currentel:pointer;
        i,answer:integer;
        chuslo:integer;
        procedure main_menu;forward;
        procedure menu_list1;forward;

помогите пожалуйсто