Нельзя преобразовать тип array [1..100] of real к real

Program ad;
const
N=100;
VAR k1,k2,k3,k4,y,x:array [1..N] of real;
h:real; 
i,k,a,b:integer;
 
function f(x1:real):real;
begin
f:=(cos(y)/1.75+x)-0.5*y*y; 
end;
begin
h:=0.5; //шаг
x[0]:=0; //начало интервала и нач. условие х
b:=1; //конец интервала
y[0]:=0; //нач. условие y
rewrite(t);
for k:=0 to 3 do begin
k1:=h*f(x[k]);
k2:=h*f(x[k]+h/2);
k3:=h*f(x[k]+h/2);
k4:=h*f(x[k]+h);
y[k+1]:=y[k]+(k1+2*k2+2*k3+k4)/6; // метод Рунге-Кутта
x[k+1]:=x[k]+h;
writeln(x[k]:4:2,' ',y[k]:4:4);
writeln(t,x[k]:4:1,' ',y[k]:4:4);
end;
for k:=4 to 100 do begin
if (x[k]>=(b+h/2)) then break;
y[k+1]:=y[k]+(h/24)*(55*f(x[k])-59*f(x[k-1])+37*f(x[k-2])-9*f(x[k-3]));
writeln(x[k]:4:2,' ',y[k]:4:4);
writeln(t,x[k]:4:1,' ',y[k]:4:4);
x[k+1]:=x[k]+h;
end;
close(t);
END.

function f(x1:real):real;
begin
f:=(cos(y)/1.75+x)-0.5*y*y; 
end;

USES CRT;
VAR a,b,h,k1,k2,k3,k4: real;
    i,k:integer;
    t:text;
    y: array [0..100] of real;
    x: array [0..100] of real;
function f(x1:real):real;
begin
f:=(1/(x1+16.7))+x1+3; //F(x)=1/(x+16.7) + x + 3
end;
BEGIN
clrscr;
assign(t,'1.txt'); //результат будет записываться в 1.txt
h:=0.05; //шаг
x[0]:=1.5; //начало интервала и нач. условие х
b:=5; //конец интервала
y[0]:=1.4; //нач. условие y
rewrite(t);
for k:=0 to 3 do begin
k1:=h*f(x[k]);
k2:=h*f(x[k]+h/2);
k3:=h*f(x[k]+h/2);
k4:=h*f(x[k]+h);
y[k+1]:=y[k]+(k1+2*k2+2*k3+k4)/6; // метод Рунге-Кутта
x[k+1]:=x[k]+h;
writeln(x[k]:4:2,' ',y[k]:4:4);
writeln(t,x[k]:4:1,' ',y[k]:4:4);
end;
for k:=4 to 100 do begin
if (x[k]>=(b+h/2)) then break;
y[k+1]:=y[k]+(h/24)*(55*f(x[k])-59*f(x[k-1])+37*f(x[k-2])-9*f(x[k-3]));
writeln(x[k]:4:2,' ',y[k]:4:4);
writeln(t,x[k]:4:1,' ',y[k]:4:4);
x[k+1]:=x[k]+h;
end;
close(t);
END.

function f(x,y:real):real;
begin
f:=(cos(y)/1.75+x)-0.5*y*y
end;