Переделать на real и на 3 массива.

[locdoc]

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

uses crt;
type mas=array[1..50]of integer;
var x:mas;
    n,i:integer;
function Min(n:integer):integer;
var w:integer;
begin
if n>1 then
 begin
  w:=Min(n-1);
  if x[n]>w then Min:=w
  else Min:=x[n]
 end
else Min:=x[1]
end;
 
begin
clrscr;
randomize;
write('Razmer massiva X n=');
readln(n);
writeln('Massiv X:');
for i:=1 to n do
  begin
    x[i]:=random(20);
    write(x[i],' ');
  end;
writeln;
write('min=',Min(n));
readln
end.