[pascal]создать линейный список из элементов файла

[sunny19]

всем привет!
задача:
написать программу на паскале , которая: существует файл, который состоит из целых чисел. Написать подпрограмму для создания списка из элементов файла
если можно, то с комментами
Очень-очень надеюсь на вашу помощь!
p.s.:вот я что-то мудрила , но оно не работает....догадываюсь, что потому как бред...

program five;
type
sp=^elem;
elem=record
info:real;
next:sp;
end;
procedure plus(n:real;last,p:sp);
begin
new(p);
p^.info:=n;
p^.next:=nil;
last^.next:=p;
last:=p;
write(p^.info,' ');
end;
 var
beg,last,p:sp;
f:file of real;
n:real;
begin
assign(f,'D:/5.txt');
reset(f);
read(f,n);
beg:=nil;
last:=nil;
new(p);
p^.info:=n;
p^.next:=nil;
beg:=p;
last:=p;
while not(eof(f)) do
begin
read(f,n);
plus(n,last,p);
end;
end.

[Tayfun]

{НЕ связанная динамика}
program variant1;
uses crt;
const max_n=100;
type
din=array [1..max_n] of ^integer;
var
a:din;
t,i:integer;
begin
clrscr;
randomize;
writeln('VVEDITE N');
readln(n);
write('a{');
assign(f,'elem.txt');
reset(f);
while not eof(f ) do begin
i:=i+1;
new(a[i]);
readln(f,t);
a[i]^:=t;
write(a[i]^,' ');
end;
writeln('}');
close(f);
readkey;
end.

{Связанная динамика}
program variant2;
uses crt;
const max_N=100;
type
ptr=^din;
din=record
inf:integer;
link:ptr;
end;
var
p:ptr;
zap:array [1..max_n] of ptr;
t,i:integer;
begin
clrscr;
assign(f,'elem.txt');
reset(f);
while not eof(f) do begin
i:=i+1;
new(zap[i]);
zap[i]^.inf:=t;
write(zap[i]^.inf,' ');
end;
close(f);
readkey;
end.