type
Tbuffer= array[1..100] of integer;
var
work,index:integer;
buffer: Tbuffer;

function tip(param1: integer; var param2: Tbuffer)
begin
tip := param2[lo(param1)] mod param1; (* хз чего сделали *)
end;

(* THE MAIN PROGRAM *)
BEGIN
(*Заполнили случайными числами буфер сюда можно не смотреть*)
randomize;
for index := 1 to 100 do buffer[index]:=random(65535);

(* а сюда уже смотреть надо*)
for index := 1 to 60000 do
  begin
   work := tip(index,buffer)
   writeln ('сделали еще ХЗ чего с индексом ',index, ' и оно равно ', work );
  end;
END.

  function tip(param1: integer; var param2: Tbuffer) : integer;

function tip(param1: integer; var param2: Tbuffer):integer;
                                                     ^
                                                      через параметр по ссылке

function tip2(param1: integer): Tbuffer;
(**********************************)

(*основная программа *)
var
mass1: Tbuffer;
param:integer;

begin
mass1:=tip2(param);
end.

var param1,param2 :integer;
begin
param1 := tip2(param2)[1];
end;

const
MaxElement = 9000;
var
f: file of integer;
map: array[1..MaxElement] of integer;
i: integer;
begin
assign(f,'temp.bin');(*назначили имя файла - он будет там же, где и файл программы, т.е. ЕХЕ-шник *)
rewrite(f); (* открыли файл на вывод*)
for i:= 1 to MaxElement do  write(f,map[i]); (*записали все,что надо из массива*)
close(f);(*закрыли файл, но в данном случае это необязательно*)
reset(f);(*открыли файл для чтения, но можно и по-другому, через процедуру seek();*)

(*прочитать можно таким же образом, как и записали но можно и так, если вспомнить
    о том, что в реальном мире размер файла может содержать другое число элементов,
    поэтому проверим условия конца файла и выхода за пределы массива.
*)
i:=1;
repeat
read(f,map[i]);
i := i+1;
until eof(f) or (i > MaxElement);
close(f);
end.