Однонаправленные списки (паскаль)

[Татьана]

Помогите пожалуйста решить задачу..
Сформировать файл из натуральных чисел и после каждого минимального элемента соответствующего списка вставить число 100.

[Stilet]

Что сама знаешь?

[Татьана]

Что здесь должны использоваться следующие процедуры:

{Процедура формирования списка}
Procedure form(c:Tinf);
Begin
New(p^.sled);
p:=p^.sled;
p^.inf:=c;
p^.sled:=nil;
inc(u^.inf)
End;
{Процедура вывода списка на экран}
Procedure print;
Var p:ss;
Begin
p:=u^.sled;
While p<>nil Do
Begin
write(p^.inf,' ');
p:=p^.sled;
End;
End;
{Процедура вставки элемента в список}
Procedure vstavka(p:ss;m:tinf);
Var q:ss;
Begin
new(q);q^.inf:=m;q^.sled:=p^.sled;p^.sled:=q;
End;
Begin ClrScr;
{Связь с файловой переменной, открытие файла для записи}
Assign(f,'Chisla'); ReWrite(f);
Writeln('Введите натуральные числа, конец ввода 0');
Readln(n);
While n<>0 Do Begin {формирование файла}
Write(f,n);
Readln(n);
End;
Close(f);
Writeln('Исходный список:');
{Связь с файловой переменной, открытие файла для чтения}
Assign(f,'Chisla'); Reset(f);
New(u);
u^.sled:=nil;
p:=u;
While Not Eof(f) Do Begin {чтение файла, формирование списка}
Read(f,n);
form(n);
End;
Close(f);
{Вызов процедуры вывода списка на экран}
print;
Writeln;