Занесение из файла в стек и обратно

[_ares_]

Как мне прийти к работаюшему виду программы? Стек ограниченный и надо проверить есть ли свободное место в стеке и если не осталось свободно места то удалить из стека 5 людей с худшей успеваемостью...
Кто знает стек ПОМОГИТЕ.

type
pRec=^tRec;
trec= record
Student:String[15];
usp:Word;
sl:^pRec;
end;
var stekRec;
procedure TForm2.Button2Click(Sender: TObject);
var f:file of TRec;
a:array of string;
i:Integer;
begin
//открываем Grid
if OpenDialog1.Execute then
AssignFile(F, OpenDialog1 .FileName)
else exit;
Reset(f);
i:=1;
while not eof(F) do
begin
read (f,stek^);
stringgrid1.Cells[0,i]:=stek.Student;
str(stek.usp,st);
stringgrid1.Cells[1,i]:=st;
Inc(i);
end;
CloseFile(f);
end;

procedure TForm2.Button1Click(Sender: TObject);
var f1:file of TRec;
i,code:Integer;
begin
//сохраняем из Grid
if SaveDialog1.Execute then begin
AssignFile(f1,SaveDialog1.FileName);
Rewrite(F1); end;
i:=1;
while StringGrid1.Cells[1,i]<>'' do begin
stek.Student:=StringGrid1.Cells[0,i];
st:=StringGrid1.Cells[1,i];
Val(st,stek.usp,code);
Write(f1,stek^);
inc(i);

[Stilet]

Во-первых: эт че - var stekRec?
Во-вторых: Для поста с кодом есть тег [code]
В-третьих: А размер стека где описан?

О, кстати, когда-то я за основу стека взял динамический массив, препод не удивился. Так что может не стоит с указателями париться?