Графика в Турбо Паскаль не работает

uses graph,crt;
var gd,gm:integer;c:shortstring;a,b,z:word;
begin
gd:=detect;
a:=100;
b:=100;
initgraph(gd,gm,'');
c:='w';
putpixel(a,b,white);
while z=0 do
begin
c:=readkey;
if c='w' then
begin
line(a,b,a,b-100);
b:=b-100
end else
if c='s' then
begin
line(a,b,a,b+100);
b:=b+100;
end else
if c='a' then
begin
line(a,b,a-100,b);
a:=a-100;
end else
if c='d' then
begin
line(a,b,a+100,b);
a:=a+100;
end else
z:=1;
end;
closegraph;
readln;
end.

readln;
closegraph;
end.

uses graph,wincrt;
var gd,gm:integer;
    c:char;
    a,b,z:word;
begin
gd:=detect;
a:=100;
b:=100;
initgraph(gd,gm,'');
z:=0;
putpixel(a,b,white);
setcolor(15);
repeat
if keypressed then
 begin
  c:=readkey;
  case c of
  #119:begin
      line(a,b,a,b-100);
      b:=b-100
      end;
  #115:begin
       line(a,b,a,b+100);
       b:=b+100;
      end;
  #97:begin
      line(a,b,a-100,b);
      a:=a-100;
      end;
  #100:begin
       line(a,b,a+100,b);
       a:=a+100;
       end;
  else z:=1;
  end;
 end;
until z=1;
end.