Динамич данные.Паскаль

[ferus1337]

Здравствуйте!Нужна ваша помошь.
Задание:В исходном текстовом файле найти самое длинное слово.Слова,кроме самого длинного,записать в стек.Содержимое стека вывести на экран,затем данные стека записат ьв типизированный файл и вывести на экран.
program Project1;
[SPOILER=zada4a]
{$APPTYPE CONSOLE}

uses
SysUtils;

type tp=^asd;
asd=record
inf:real;
Link:tp;
end;
Var
f,f2:text;
top,top1,d:tp;
a:real;
x:string[30];
l,max,imax,i,n:integer;
//f:file of real;
Procedure sozd_st;
begin
top:=nil;
readln(n);
For i:=1 to n do
begin
new(d);
//a:=random(100)/3;
d^.inf:=a;
d^.Link:=top;
top:=d;
end;
end;
Procedure sozd_fayla;
begin
assign(f,'text');
rewrite(f);

while not eof(f) do
begin
readln(x);
writeln(f,x);
end;
close(f);
end;
procedure preobr;
begin
reset(f);
writeln(f,x);
l:=length(x);
l:=max;
imax:=1;
while not eof(f) do
begin
readln(f,x);
l:=length(x);
if l>max then
max:=l;
imax:=filepos(f);
end;
writeln(max,imax);
end;
procedure vivod_fayla;
begin

reset(f);
writeln('file');
while not eof(f) do begin
read(f,x);
write(x:7); end;
close(f);
end;
begin
sozd_fayla;
vivod_fayla;
sozd_st;
preobr;
end.
[/SPOILER]

[ferus1337]

Вообщем непонятно как сделать процедуру записи в стек всех кроме самого длинного и как записать содержимое стека в типизированный файл.