Pascal Рекурсия!

[Korun]

Описать рекурсивную функцию MinRec(A,N)1|MaxRec(A,N)2 вещественного типа, которая находит минимальный1|максимальный2 элемент вещественного массива A размера N, не используя оператор цикла. С помощью функции MinRec1|MaxRec2 найти минимальные1|максимальные2 элементы массивов A, B, C размера NA, NB, NC соответственно.

[eoln]

http://programmersforum.ru/showthread.php?t=75232
http://programmersforum.ru/showthread.php?t=74812

program Project1;

{$APPTYPE CONSOLE}

uses SysUtils;

function min(var a: array of byte; n: byte): byte;
begin
  if n = 0 then result := a[0]
  else begin
    if a[n] < a[n-1] then a[n-1] := a[n];
    result := min(a, n-1)
  end
end;

const
  m = 3;
var
  b: array[0..m-1] of byte;
  i, j: byte;
begin
  randomize;
  for i := 0 to m-1 do begin
    b[i] := random(10);
    write(b[i]:2)
  end;
  writeln(' min = ', min(b, m-1));
  readln;
end.

[Korun]

Большое спасибо!

[Korun]

Не работает((