програмка на ABC паскале метод рунге кутта 4го порядка

[reanima1or]

задача решить y''-ay=0 y(0)=0 y'(0)=1 0<x<10
проблема в следующем:Program1.pas(39) : Встречено '.', а ожидалось ';'

PHP код:

Program vvv;
var x0,xn,y0,h,x,y,k1,k2,k3,k4,q1,q2,q3,q4,a,z:real;
    n,j:integer;

function F(x,y,z:real):real;
function G(x,y,z:real):real;
begin
   F:=y;
   G:=a*y;
end;
begin
writeln('Введите концы отрезка x0, xn: ');
readln(x0,xn);
writeln('Введите начальное значени функции y0:');
readln(y0);
writeln('Введите число отрезков разбиения n: ');
readln(n);
writeln('Введите a: ');
readln(a);
h:=(xn-x0)/n;
writeln('     y(x)   ');
writeln(y0:7:5);
x:=x0; y:=y0;
for j:=1 to n do begin   
 if j mod 10 = 0 then readln;
     y:=y+h*(k1+2*k2+2*k3+k4)/6;
     z:=z+h*(q1+2*q2+2*q3+q4)/6;
     k1:=h*F(x,y,z);
     q1:=h*G(x,y,z);
     k2:=h*F(x+h/2,y+k1*h/2,z+q1*h/2);
     q2:=h*G(x+h/2,y+k1*h/2,z+q1*h/2);
     k3:=h*F(x+h/2,y+k2*h/2,z+q2*h/2);
     q3:=h*G(x+h/2,y+k2*h/2,z+q2*h/2);
     k4:=h*F(x+h,y+h*k3,z+h*q3);
     q4:=h*G(x+h,y+h*k3,z+h*q3);
     writeln(y:7:5);
end;
readln;
end. 


[Vanta11a]

function F(x,y,z:real):real; 
function G(x,y,z:real):real; 
begin 
   F:=y; 
   G:=a*y; 
end;

А разве так можно делать? Насколько я помню, у каждой функции должно быть отдельное описание.
Собственно опишите функцию, потом попробуйте скомпилировать.

[Poma][a]

А разве так можно делать?

Конечно можно!

у каждой функции должно быть отдельное описание.

Здесь у каждой функции отдельное описание, только одна из них вложена в другую!

[Vanta11a]

Просто судя по ошибке - где-то ожидался еще 1 end.
Поскольку криминала в теле программы я не вижу - скорее всего косяк с объявлением функций.