Метод Рунге-Кутта 4 порядка график решения - PascalABC.NET

Формулировка задачи:

Помогите, пожалуйста, как исправить ошибку: DIFur2.pas(69) : Ошибка времени выполнения: Значение было недопустимо малым или недопустимо большим для Int32. не уверена, что программа будет строить график... не знаю как построить график решений. подскажите, пожалуйста. Программа считает верно, это проверено.

 program lab4;
uses GraphABC;
   const n=50;
var a,b,h,x,y, x1, y1:real;
          i:integer;
 
var x0, y0, k: integer;
//x, y: real;
 
{---------------function----------------------}
function f(x,y:real):real;
begin
f:=y;
end;
 
{---------  Euler  -----------------------}
function Euler(x,y,h:real):real;
var i:integer;
begin
for i:=1 to n do
begin
y:=y+h*f(x,y);
x:=x+h;
end;
Euler:=y;
end;
 
{---------  Runge-Kutta's 4 --------------}
function Runge_Kutta4(x,y,h:real):real;
var k1,k2,k3,k4:real; i:integer;
begin
for i:=1 to n do
begin
k1:=h*f(x,y);
k2:=h*f(x+h/2,y+k1/2);
k3:=h*f(x+h/2,y+k2/2);
k4:=h*f(x+h,y+k3);
 y:=y+(1/6)*(k1+2*k2+2*k3+k4);
 x:=x+h;
end;
Runge_Kutta4:=y;
end;
 
begin
SetWindowSize(800,500);
x0:=400; y0:=250; k:=20;
setPenColor(clRed);
 
x:=0;y:=1;b:=1;
h:=(b-x)/n;
While x<=b do
begin
y:=Runge_Kutta4(x,y,h);
x1:=trunc(x0+x*k);
y1:=trunc(y0-y*k);
x:=x+h
end;
end.

Решение задачи: «Метод Рунге-Кутта 4 порядка график решения»

Листинг программы

Try y1:=trunc(y0-y*k);
Except on system.Exception do Raise new Exception(y0.ToString + ' ' + (y * k).ToString);
end;

Объяснение кода листинга программы

y1 - результат вычисления метода Рунге-Кутта 4 порядка;
y0 - начальное приближение;
y - промежуточный шаг;
k - коэффициент метода Рунге-Кутта 4 порядка.