Ошибка в программе. Графика

uses
  graphabc;
 
var
  x1, y1, x2, y2, n: integer;
  s: string;
 
procedure Grafic(x1, y1, x2, y2: integer);
var
  xr, yr, i: integer;
  hx, hy, x, y: real;
  s: string;
begin
  hx := (x2 - x1) / WindowWidth;
  hy := (y1 - y2) / WindowHeight;
  for xr := 0 to WindowWidth do
  begin
    x := x1 + hx * xr;
    y := sin(x);
    yr := round((y1 - y) / hy);
    putpixel(xr, yr, clblack);
  end;
  yr := round(y1 / hy);
  line(0, yr, WindowWidth, yr);
  xr := round(-x1 / hx);
  line(xr, 0, xr, WindowHeight);    
  yr := round(y1 / hy);
  xr := round((x2 - x1) / hx);
  line(xr, yr, xr - 14, yr - 8);
  line(xr, yr, xr - 14, yr + 8);
  textout(xr - 10, yr + 12, 'X');
  xr := round(-x1 / hx);
  line(xr, 0, xr - 8, 14);
  line(xr, 0, xr + 8, 14);
  TextOut(xr + 10, 2, 'Y'); 
  i := 0;  
  while xr < WindowWidth do 
  begin
    line(xr, yr + 5, xr, yr - 5);
    str(i, s);
    TextOut(xr - 4, yr + 7, s); 
    i := i + 1;
    xr := round((i - x1) / hx); 
  end;
  xr := round(-x1 / hx);
  i := 0;
  while xr > 0 do 
  begin
    line(xr, yr + 5, xr, yr - 5);
    str(i, s);
    TextOut(xr - 4, yr + 7, s); 
    i := i - 1;
    xr := round((i - x1) / hx); 
  end;
  xr := round(-x1 / hx);
  yr := round(y1 / hy);
  i := 0;
  while yr > 0 do 
  begin
    line(xr + 5, yr, xr - 5, yr);
    str(i, s);
    if i <> 0 then TextOut(xr + 10, yr - 6, s);
    i := i + 1;
    yr := round((y1 - i) / hy);
  end;
  xr := round(-x1 / hx);
  yr := round(y1 / hy); 
  i := 0;
  while yr < WindowHeight do 
  begin
    line(xr + 5, yr, xr - 5, yr);
    str(i, s);
    if i <> 0 then TextOut(xr + 10, yr - 6, s);
    i := i - 1;
    yr := round((y1 - i) / hy);
  end;
end;
 
begin
  readln(x1, y1);
  readln(x2, y2);
  Grafic(x1, y1, x2, y2);
  readln(n);
  readln(s);  
  while (s <> 'e') or (s <> 'E') do 
  begin
    if (s = 'W') or (s = 'w') then begin ClearWindow; Grafic(x1, y1 + n, x2, y2 + n); end;
    if (s = 'A') or (s = 'a') then begin ClearWindow; Grafic(x1 - n, y1, x2 - n, y2); end;
    if (s = 'S') or (s = 's') then begin ClearWindow; Grafic(x1, y1 - n, x1, y2 - n); end;
    if (s = 'D') or (s = 'd') then begin ClearWindow; Grafic(x1 + n, y1, x2 + n, y2); end;
    if (s = '+') then begin ClearWindow; Grafic(x1 div 2, y1 div 2, x1 div 2, y2 div 2); end;
    if (s = '-') then begin ClearWindow; Grafic(x1 * 2, y1 * 2, x1 * 2, y2 * 2); end;
    readln(s);
  end;
end.