Указатели, рекурсия, помогите, не могу разобраться Опции

[aspi]

Привет! Помогите мне пожалуйста справиться с заданием
Задание такое:
Объявить массив из 15 указателей на элементы типа real. Используя генератор случайных чисел разместить в динамической памяти 15 вещественных чисел. В подпрограмме-функции найти максимальный элемент и вернуть из функции поиска указатель на найденное значение.

В данном случае не получается организовать функцию, как передать правильно параметры? Вот код без функции:

program ukazat;
const n=15;
var
  r : array [1..n] of ^real;
  i : integer;
  a : Preal;

	 begin
	 Randomize;
	  for i := 1 to n do
	  begin
		New(r[ i ]);
		r[ i ]^ := random(n);
		writeln (r[ i ]^:2 :0);
	  end;


	   for i:=1 to n do
		begin
		 if r[ i ]^ > r[i+1]^ then
		 begin
		 a^:=r[ i ]^;
		 r[ i ]^:=r[i+1]^;
		 r[i+1]^:=a^;
		 end;
		 end;

	 writeln('Указатель на максимальный элемент: ',a^:2 :0);
	 for i := 1 to n do Dispose(r[ i ]);
	 readln;
end.

А это рекурсия - таже трабла не разобраться с функцией :-(

Напишите рекурсивную функцию, которая возвращает среднее из n элементов массива чисел

program recurs;
const n=5;
var
   summ,i,j:integer;
   mass: array [1..n] of integer;
{---------------------------------------}
function frst(summ:integer):integer;
begin
       for i:=1 to n do
       begin
       frst:=frst(summ)+mass[ i ];
       end;
end;
{---------------------------------------}
begin
     writeln ('Введите элементы массива');
     for i:=1 to n do
         readln(mass[ i ]);
         frst(summ);
     i:=frst(summ);
     writeln ('Среднее арифметическое ',n,' чисел= ',i);
     readln;
end.

Буду очень рад, хотя бы намеку. Спасибо!

[aspi]

Вот мои попытки над рекурсией, с процедурами и функциями совсем туго.

program recurs;
 const n=5;
var
   summa,i,j,m:integer;
   mass: array [1..n] of integer;
{---------------------------------------}
procedure frst(summ:integer);
  begin
    summ:=summa-5;
    frst(summ);
  end;
{---------------------------------------}
begin
     writeln ('Введите элементы массива');
     for i:=1 to n do
      begin
         readln(mass[i]);
         summa:=summa+i;
      end;
         frst(summa);
          writeln ('Среднее арифметическое ',n,' чисел= ',summa);
     readln;
end.
 

А вот попытки с указателем:

program ukazat;
const n=15;
type
Preal=^real;

var
  r : array [1..n] of ^real;
  i : integer;
  a : Preal;
  z : Preal;


function poisk (var b:array of real):Preal;
 begin
  for i:=low(b) to high(b) do

       begin
         if r[i]^ > r[i+1]^ then
         begin
         a:=r[i]^;
         end;
         poisk:=@a;
         exit
         end;

 end;

     begin
     Randomize;
      for i := 1 to n do
      begin
        New(r[i]);
        r[i]^ := random(n);
        writeln (r[i]^0);
      end;

poisk(?);

     writeln('Указатель на максимальный элемент: ',a^0);
     for i := 1 to n do Dispose(r[i]);
     readln;
end.