Кто может проверить мою работу?

program lab_rabota_5_1_3;
{$mode objfpc}{$H+}
const
  n=9;iter=200;
 type setka=array[0..n,0..n] of real;
  var
    u,fr:setka;
       i,j,k:integer;
       y,eps,h,del,del1:real;
 
 function f(x,y:real):real;
  begin
  f:=0
 end;
 
 function f1(x:real):real;
  begin
  f1:=10*sqr(x)*(x-1)
 end;
 
 function f2(x:real):real;
  begin
  f2:=50*sin(pi*x)
 end;
 
 function f3(y:real):real;
  begin
  f3:= 30*sqr(y)*(1-y)
 end;
 
 function f4(y:real):real;
  begin
  f4:=0
 end;
begin
 for i:=0 to n do
 for j:=0 to n do begin
 u[i,j]:=0;
 fr[i,j]:=f(i/n,j/n)
 end;
 for i:=0 to n do begin
 u[i,0]:=f1(i/n);
 u[i,n]:=f2(i/n);
 u[0,i]:=f3(i/n);
 u[n,i]:=f4(i/n)
               end;
 k:=0; del:=0.1; h:=1/n; eps:=0;
   while (del>eps) and (k<iter) do
   begin del:=0;
 for i:=1 to n-1 do
 for j:=1 to n-1 do begin
  y:=(u[i-1,j]+u[i+1,j]+u[i,j-
1]+u[i,j+1]+fr[i,j]*h*h)/4;
 del1:=abs(y-u[i,j]);
 if del1>del then del:=del1;
 u[i,j]:=y
 end;
 k:=k+1
 end;
   write('reshenie = ',y:4:4);
  readln;
end.

   writeln('reshenie:');
   for i := 0 to n do
     begin
       for j := 0 to n do write(u[i, j]:7:3);
       writeln
     end;
  readln;