Графика: график функции не строится

uses
  graphabc;
var
  gd, gm: integer;
  xmin, xmax, ymin, ymax: real;
  xgmin, xgmax, ygmin, ygmax: integer;
  x, hx, y: real;
function f(x:real):real;
  begin
    if x>7 then f:=1/(x-7)
      else
        f:=-3*x+9;
  end;
procedure grafic(xmin, xmax, ymin, ymax: real; xgmin, xgmax, ygmin, ygmax: integer);
  var
    h, kx, ky: real;
    x: real;
    i, xg, yg: integer;
  begin
    h:=(xmax-xmin)/(xgmax-xgmin);
    kx:=(xgmax-xgmin)/(ymax-xmin);
    ky:=(ygmax-ygmin)/(ymax-ymin);
    line(xgmin-round(kx*xmin), ygmax, xgmin-round(kx*xmin), ygmin);
    line(xgmin, ygmin-round(ky*ymin), xgmax, ygmin-round(kx*ymin));
    x:=xmin;
    for i:=0 to xgmax-xgmin do
      begin
        xg:=xgmin+round(kx*(x-xmin));
        yg:=ygmin+round(ky*(f(x)-ymin));
        putpixel(xg, yg, clred);
        x:=x+h;
      end;
  end;
begin
  write('xmin = ');
  readln(xmin);
  write('xmax = ');
  readln(xmax);
  xgmin:=20;
  xgmax:=620;
  ygmin:=460;
  ygmax:=20;
  x:=xmin;
  hx:=(xmax-xmin)/100;
  ymin:=f(x);
  ymax:=f(x);
  while x<xmax do
    begin
      x:=x+hx;
      y:=f(x);
      if y<ymin then ymin:=y;
      if y>ymax then ymax:=y;
    end;
  writeln('ymin ymax');
  writeln(ymin:0:2, ' ', ymax:0:2);
  readln;
  grafic(xmin, xmax, ymin, ymax, xgmin, xgmax, ygmin, ygmax);
end.