Рекурсия. Поиск минимального элемента в массиве.

[Маленыч]

Здравствуйте! У меня такое задание:
С помощью процедур и функций описать программу, которая ищет минимальный элемент в последовательности чисел. Использовать рекурсию (Обязательно).
Сам я не совсем понял смысл рекурсии и как она работает, но кое-что набросал, иногда даже выдает верный результат =):

program requr;
{N+}
{E+}
const
  max=100;
type
  mass=array[1..max] of extended;
var
  seqnum:mass;
  amount:byte;
{------------}
procedure input(var amount:byte; var seqnum:mass);
var
  trans:string;
  i,code:integer;
begin
  writeln('Введите размер массива: ');
  repeat
    readln(trans);
    val(trans,amount,code);
  until (code=0) and (amount>0) and (amount <=100);
  writeln('Введите элементы массива: ');
  for i:=1 to amount do
  begin
    repeat
      readln(trans);
      val(trans,seqnum[i],code);
    until (code=0);
  end;
end;
{-----------}
function search(n:byte; seqnum:mass):extended;
begin
  if n>=2 then
  begin
    if seqnum[n]<seqnum[n-1] then
      search:=seqnum[n]
    else
      search:=search(n-1,seqnum);
  end;
end;
begin
  input(amount,seqnum);
  search(amount,seqnum);
  writeln(search(amount,seqnum));
end.

Как будет верно?
P.S. Возможно я написал полный бред.

[Stilet]

info;

Это что?
А в целом пристойно скопипастил...

[Маленыч]

Это что? info;

Я убрал процедуру, она выводила поясняющую информацию, забыл в мейне убрать.

А в целом пристойно скопипастил...

Эээ?

[Stilet]

Эээ?

Меня твое info смутило. Если ты это сам написал - респект и уважуха. Запускай, посмотри что она отработает тебе.

[Маленыч]

Если в массиве меньше 3х цифр - то хрень, если больше, то вроде как работает, но если очень много, то опять бред.
P.S. Инфо - был вывод поясняющей информации, забыл убрать + забыл в мейн запихнуть search, саму функцию, все исправил.

[Plague]

тут отвечал недавно.