Помогите плиз дорешать задачки

Помогите плиз дорешать задачку

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


Program Recursiya;
type
Intarray=array[1..100] of integer;
var
N:Integer;
A:Intarray;
Function MinRec(var A : Intarray;N: Integer): integer;
begin
If N=1 then
MinRec:=A[1]
else MinRec:=MinRec(A,N-1)
end;
begin
N:=3;
A[1]:=3; A[2]:=2; A[3]:=1;
Writeln('=',FindSum(A,3));
end.

В этом случае выдает "=3",а мне надо чтобы ответ был =1 (одному)





Помогите в решении задачи!Турбо Паскаль выдает что файл не найден!Не пойму что не так!И вообще,правильно ли я составил программу!? Заранее спасибо!

Типизированные файлы.
Дан файл целых чисел. Вывести количество содержащихся в нем серий (то
есть наборов последовательно расположенных одинаковых элементов).


Program Z;
Var
F:File of integer;
X,Xs,Kol:integer;
Seria:boolean;
begin
Assign(F,'C:Ser');
{$I-}
Reset(F);
{$I+}
Read(F,Xs);
Seria:=False;
Kol:=0;
While not eof(F) do
begin
Read(F,X);
If (X=Xs) and (not Seria) then
begin
Seria:=True;
Kol:=Kol+1;
end;
If X<>Xs then
begin
Read(F,Xs);
Seria:=False;
end;
End;
Close(F);
write(Kol);
end.

Насчет второй задачи: если всё прально помню в Паскале по-моему должно быть вот так Assign(F,'C:\Ser.txt') (с условием, что на диске С: действительно есть файлик Ser.txt )

2Maxxy - на счет рекурсии.
мне кажется должно выглядеть так:


На счет файла сейчас подумаю.

Maxxy - задача получилась или нет? Чего молчим то??

Вот всегда так. Лучше вообще не решать таким задачи. Ни ответа, ни привета.