найти ошибку в коде

type mas=array[1..10] of real;
 
function input_n(s:string):integer;
var nx: integer;
begin
  write('Введите размер массива ', s, ' ');
  readln(nx);
  while (nx<0)or(nx>10) do begin
     write('Ошибка. Введите размер массива ', s, ' ');
     readln(nx);
  end;
  result:=nx;
end;
 
procedure Input_arr(nx:integer; f:text; var x:mas);
var i:integer;
begin
  reset(f);
  for i:=1 to nx do
  begin
    //write('Введите элемент массива ', s, ' ');
    read(f,x[i]);
  end;
  close(f);
end;
 
procedure Output_arr(x:mas; nx:integer; s:string; f:text);
var i:integer;
begin
  write(f,'Массив ', s, ' ');
  for i:=1 to nx do
    Write(f,x[i], ' ');
  writeln(f,' ');
end;
 
function min(x:mas;nx:integer;leftx:real;rightx:real):real;
var i,iminx:integer;
    minx:real;
begin
  minx:=x[1];
  iminx:=1;
  for i:=1 to nx do
    if (minx>=leftx) and (minx<=rightx) then 
      minx:=x[1];
end;
 
var a,b, c: mas;
    na,nb,nc:integer;
    left,right:real;
    mina,minb,minc:real;
    finA, finB, finC:text;
    fout:text;
begin
  assign(finA,'a.txt');
  assign(finB, 'b.txt');
  assign(finC, 'c.txt');
  assign(fout,'out.txt');
  rewrite(fout);
  na:=input_n('a');
  nb:=input_n('b');
  nc:=input_n('c');
  writeln(na, ' ', nb, ' ', nc);
  
  write ('Введите левую границу отрезка ');
  readln(left);
  
  write ('Введите правую границу отрезка ');
  readln(right);
 
  Input_arr(na, finA,a);
  Input_arr(nb, finB, b);
  Input_arr(nc, finC, c);
  
  Output_arr(a,na,'a', fout);
  Output_arr(b,nb, 'b', fout);
  Output_arr(c, nc,'c', fout);
  
  mina:=min(a,na,left,right);
  minb:=min(b,nb,left,right);
  minc:=min(c,nc,left,right);
  
  if (mina<minb) and (mina<minc) then writeln(fout, 'В а наименьшее')
  else if (minb<minc)and(minb<mina) then writeln(fout, 'В b наименьшее')
  else if (minc<mina) and (minc<minb) then writeln(fout, 'В с наименьшее')
  else if (mina=minb) and (mina<minc) then writeln (fout, 'В а и b наименьшее')
  else if (mina=minc) and (mina<minb) then writeln(fout, 'В а и с наименьшее')
  else if(minc=minb) and(minb<mina) then writeln(fout, 'В b и с наименьшее')
  else if mina=0 then writeln(fout, 'Во всех массивах нет элемента, принадлежащего заданному отрезку')
  else writeln(fout, 'Во всех трех равное значение элемента, принадлежащего заданному отрезку');
  close(fout);
end.