Исправить недочеты в коде

var   T : Text;
    a, b, h, x: real;
    y1, y2, y3, y1_1, y1_2, y1_3: real; 
function F(x, y1, y2, y3: real; n:byte):real;
begin
    case n of
    1: f:=-(55+y3)*y1+65*y2;
    2: f:=0.0785*(y1-y2);
    3: f:=0.1*y1;
    end;
end;
begin
    assign(T, 'c:\euler.txt'); rewrite(T);
    a:=0; b:=0.1; h:=0.01;
    y1:=1.0; y2:=1.0; y3:=0;
    x:=a;
    while x<=b+h do
    begin
       writeln(T, x:10:5, y1:10:5, y2:10:5, y3:10:5);
       y1_1:=y1+h*f(x, y1, y2, y3, 1);
       y1_2:=y2+h*f(x, y1, y2, y3, 2);
       y1_3:=y3+h*f(x, y1, y2, y3, 3);
       y1:=y1_1; y2:=y1_2; y3:=y1_3;
       x:=x+h;
    end;
    flush(T); close(T);
end.

function F(x, y1, y2, y3: real; n:byte):real;
begin
case n of
1: f:=-(55+y3)*y1+65*y2;
2: f:=0.0785*(y1-y2);
3: f:=0.1*y1;
end;
end;
var T : Text;
    a, b, h, x: real;
    y1, y2, y3: real;
begin
assign(T, 'euler.txt');//файл в папке с програмой
rewrite(T);
a:=0;
b:=0.1;
h:=0.01;
y1:=1.0;
y2:=1.0;
y3:=0;
x:=a;
while x<b+h/2 do
 begin
  writeln(T, x:10:5, y1:10:5, y2:10:5, y3:10:5);
  y1:=y1+h*f(x, y1, y2, y3, 1);
  y2:=y2+h*f(x, y1, y2, y3, 2);
  y3:=y3+h*f(x, y1, y2, y3, 3);
  x:=x+h;
 end;
close(T);
end.