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

[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.

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

[volvo]

Смотри:

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


function poisk (var b:array of preal):Preal; { <--- Первая ошибка - нужно "array of PREAL" }
var i, max_i: integer;
begin
  max_i := low(b);
  for i := low(b) to high(b) do
    if b[i]^ > b[max_i]^ then max_i := i; { обычный поиск максимума }
  poisk:=b[max_i];
end;

var
  r: array [1 .. n] of preal;
  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;

  a := poisk®; { <--- Ну, и вызов ... }
  writeln('Максимальный элемент: ',a^: 2: 0);

  for i := 1 to n do Dispose(r[i]);
  readln;
end.

Это имелось в виду?

[aspi]

Это имелось в виду?

Да! Спасибо всё работает! не допечатал 2 слова....

С рекурсией сейчас попробую разобраться, там в процедуре
summ:=summa-5; вместо -5 надо поставить /n, но пишет о несовпадении типов...?