Нельзя преобразовать тип real к integer

type mas=array[1..n] of integer;
var x:mas;

uses crt;
const n=10;
type mas=array[1..n] of real;
var x:mas;
var i,j,k:integer; max,min,buf:real; S:real; f,r:text;
begin 
assign(f,'MASSIVE.pas');
reset(f);
for i:=1 to n do
read(f,x[i]);
close(f);
assign(f,'массив.pas');
rewrite(f);
writeln ('исходный массив ');
close(f);
for i:=1 to n do write (' x[',i,']=',x[i]);
writeln;
writeln(f,'исходный массив ');
writeln;
 
 
  For i:=1 to n do begin 
       
       if odd(x[i]) then
                         begin
                         min:=x[i];                      
                         k:=i;
                         end;
       if not odd(x[i]) then
                         begin
                         max:=x[i];                      
                         j:=i;
                         end;
end;
 writeln ('минимальное нечетное x[',k,']='  ,min);
 writeln ('максимальное четное x[',j,']='  ,max);
 writeln;
   
   S:=0;
   For i:=k+1 to j-1 do
   begin
   S:=S+x[i];
   end;
   writeln('сумма элементов между min нечетным и max четным = ',S:4:0);
   writeln;
   writeln;
 
   buf:=x[k];
   x[k]:=x[j];
   x[j]:=buf;
 
   For i:=1 to n do
   write(' x[',i,']=',X[i]);
   writeln;
   
end.