проблема с графикой в Turbo Pascal

[mishammm]

Всем привет. у меня стоит задание нарисовать блок схему с использованием графического модуля и с помощью подключение модуля к программе. вот мой код
модуля:

unit ar3;

interface

procedure write_k(x,y:integer);
implementation
uses
    crt,graph;
procedure write_k(x,y:integer);
begin
setcolor(white);
line(x,y,x+90,y);
line(x+90,y+20,x,y+20);
arc(x,y+10,90,270,10);
arc(x+90,y+10,270,90,10);
end;
  End.

и самой программы:

uses
    crt,graph,ar3;
    var
       driver,mode:integer;
      x,y, x0,y0:integer;
      begin
      driver:=detect;
      initgraph(driver,mode,'');
      x0:=275;
      y0:=20;
      write_k(x0,y0);
      write_k(x0,y0+420);
      closegraph;
      readln;
      end.

но беда в том что у меня вместо нарисованого начального блока отображается просто мигающий курсор. не могли би вы скопировать этот код себе и проверить работатет ли у вас пожалуйста или может где ошибка. Спасибо вам заранее!

[Serge_Bliznykov]

Вы будете смеяться, но Вы почти всё сделали верно.
Ошиблись только в одном месте.
Поменяйте местами строчки Readln и CloseGraph:

      write_k(x0,y0);
      write_k(x0,y0+420);
      readln;
      closegraph;
end.

p.s. процедура CloseGraph закрывает графическое окно, поэтому Вы ничего и не видите!

[mishammm]

а вот оно что, спасибо )