Составить программу табулирования функции

program aa;
uses crt;
 const  a=0;
    b=2;
    c=1;
    d=2;
    h=0.1;
 
   var  x,y,f,k,l:real;
      i,j,m,n,q: integer;
   begin
   clrscr;
   writeln('programa vuvodit zna4enie funkcuuf,f:=ln(x+sqrt(x+y)) z hagom 0.1');
   writeln('najmite lubuju klavihu');
   k:=(b-a)/h;
   q:=0;
   l:=(d-c)/h;
   n:=round(k);
   m:=round(l);
   x:=a;i:=0;y:=c;j:=0;
   for i:=0 to n do
   begin
   for j:=0 to m do
   begin
   f:=ln(x+sqrt(x+y));
   writeln('f[',x:5:2,';',y:5:2,']=',f:5:2);
   y:=y+h;
   q:=q+1;
    if q=11 then
   begin
   writeln('prodolgit');
   readln;
   q:=0;
   end;
   end;
   x:=x+h;
   y:=c+h;
   end;
   end.

program aa;
uses crt;
const  a=0;
       b=2;
       c=1;
       d=2;
       h=0.1;
       t=0.0001;{точность попадания в конечный интервал, иначе его может не посчитать,
кстати у Вас и не считает}
var x,y,f:real;
    q: integer;
begin
clrscr;
writeln('programa vuvodit zna4enie funkcuuf,f:=ln(x+sqrt(x+y)) z hagom 0.1');
writeln('najmite lubuju klavihu');
readkey;{раз уж написали жми, то и команда нужна}
x:=a;q:=0;
while x<=b+t do
 begin
  y:=c;
  while y<=d+t do
   begin
    f:=ln(x+sqrt(x+y));
    writeln('x=',x:0:1,'  y=',y:0:1,'  f=',f:5:2);
    y:=y+h;
    q:=q+1;
    if q mod 22=0 then{можно и пореже жать на клавишу}
     begin
      writeln('prodolgit');
      readkey;
     end;
   end;
   x:=x+h;
 end;
readkey
end.