Стек

[Виктор32]

Помогите пожалуйста!!!
Задание такое:
Дан целочисленный файл .Составить стек из его отрицательных элементов;

program stek;
uses crt;
type
str= string;
uk_stack= ^stack;
stack= record
inf: str;
next: uk_stack
end;
var
Beg: uk_stack;
s: str;

procedure sozd_stack(var Beg: uk_stack; var s: str);
begin
new(Beg);
Beg^.next:=nil;
Beg^.inf:=s
end;

procedure dob_el_stack (var Beg: uk_stack; var s: str);
var p: uk_stack;
begin
new(p);
p^.next:=Beg;
Beg:=p;
Beg^.inf:=s
end;

procedure ud_el_stack(var Beg: uk_stack; var s: str);
begin
s:=Beg^.inf;
Beg:=Beg^.next
end;

begin
clrscr;

writeln('****** STACK ******');
repeat
ud_el_stack (Beg,s);
writeln(s);
until Beg = nil;
readln
end.

___________________________________ ______________________________
Вот процедуры создание стека и добавление в него элементов.Я не пойму как создать файл и считать отрицательные элементы

[danekne]

Тут нужно, перед тем, как пихать элемент в стек проверять его на <0. А файл создается коммандой assign. Но по условию задачи создавать его не надо