Вывести на экран значения х, y

var x, y, z, x1, x2, h, y1, y2, g: real;
    f: boolean;
begin
  write('x1 = ');
  readln(x1);
  write('x2 = ');
  readln(x2);
  if x1 > x2
    then begin
      x := x1;
      x1 := x2;
      x2 := x
    end;
  repeat
    write('h > 0;  h = ');
    readln(h)
  until h > 0;
  write('y1 = ');
  readln(y1);
  write('y2 = ');
  readln(y2);
  if y1 > y2
    then begin
      y := y1;
      y1 := y2;
      y2 := y
    end;
  repeat
    write('g > 0;  g = ');
    readln(g)
  until g > 0;
  writeln('+------------------+------------------+------------------+');
  writeln('|         x        |         y        |         z        |');
  x2 := x2 + h / 2;
  x := x1;
  y2 := y2 + g / 2;
  while x < x2 do
    begin
      f := true;
      writeln('+------------------+------------------+------------------+');
      y := y1;
      while y < y2 do
        begin
          write('| ');
          if f
            then begin
              write(x:16);
              f := false
            end
            else write(' ':16);
          z := y + sin(x * x);
          writeln(' | ', y:16, ' | ', z:16, ' |');
          y := y + g
        end;
      x := x + h
    end;
  writeln('+------------------+------------------+------------------+');
  readln
end.