функция принимает в качестве параметра имя файла NameFUNCTION F(NAME:STRING):INTEGER;

что ты хочешь сделать? этой функцией?

ну?

Программка будет работать при условии, что обозначенный файл с целыми числами существует!Function P(name:string):integer;var f:file of integer;a,min:integer;beginAssign(f, name);Reset(f);Read(f,min);while not eof(f) do begin read(f,a); if абс(a)lt;абс(min) then min:=a; end;Close(f);P:=min;end;var s:string;beginwriteln('Введите имя файла:');readln(s);writeln('min = ',P(s));end.
Подробнее - на Znanija.com -