Дан файл вещественных. Вывести элементы его в обратном порядке используя стек — Pascal(Паскаль)

uses crt;
type
    ptr = ^element;
    element = record
        inf : real;
        link : ptr;
    end;
var
   p : ptr;
   f : file of real;
   x : real;
begin
    assign(f,'d:\input.dat');
    reset(f);
    while (not eof(f)) do
    begin
         read(f,x);
         new(p);
         p^.inf:=x;
         p^.link:=nil;
    end;
close(f);
while (p <> nil) do
begin
     write(p^.inf,' ');
     p := p^.link;
end;
end.