База аккордов

[sergio11]

если кому нужна то вот код. буду рад замечаниям!

program accord;

uses graph, crt;
var
 n: char;
 gd, gm: integer;
 accord,da: string;
  procedure grif;
   begin
    line(50,50,500,50);
    line(50,100,500,100);
    line(50,150,500,150);
    line(50,200,500,200);
    line(50,250,500,250);
    line(50,300,500,300);

    line(50,50,50,300);
    line(200,50,200,300);
    line(350,50,350,300);
    line(500,50,500,300);
   end;

BEGIN
  clrscr;

    gd:=detect;
    gm:=1;

 begin
 repeat

writeln('Введи название аккорда');
readln(accord);
  if (accord='Am') or (accord='am')  then
    begin
    initgraph(gd, gm,'');
    grif;
    setcolor(15);

    circle(125,100,20);
     setfillstyle(11,15);
      floodfill(125,100,15);

    circle(275,150,20);
     setfillstyle(11,15);
      floodfill(275,150,15);

    circle(275,200,20);
     setfillstyle(11,15);
      floodfill(275,200,15);
      delay(10000);
      closegraph;
      end

    else


     if (accord='Dm') or (accord='dm')   then
     begin
  initgraph(gd, gm,'');

    grif;
    setcolor(15);

    circle(125,50,20);
     setfillstyle(11,15);
      floodfill(125,50,15);

    circle(275,150,20);
     setfillstyle(11,15);
      floodfill(275,150,15);

    circle(425,100,20);
     setfillstyle(11,15);
      floodfill(425,100,15);
      delay(10000);
      closegraph;
      end

      else
    if (accord='C') or (accord='c')  then

      begin
     initgraph(gd, gm,'');
             grif;
    setcolor(15);

     circle(125,100,20);
     setfillstyle(11,15);
      floodfill(125,100,15);

       circle(275,150,20);
     setfillstyle(11,15);
      floodfill(275,150,15);

    circle(425,250,20);
     setfillstyle(11,15);
      floodfill(425,250,15);
      delay(10000);
      closegraph;
      end

      else

      if (accord='G') or (accord='g')  then
        begin
   initgraph(gd, gm,'');
       grif;
    setcolor(15);

    circle(275,250,20);
     setfillstyle(11,15);
      floodfill(275,250,15);

    circle(425,50,20);
     setfillstyle(11,15);
      floodfill(425,50,15);

    circle(425,300,20);
     setfillstyle(11,15);
      floodfill(425,300,15);
      delay(10000);
      closegraph;
      end
      else
      begin
   writeln('Такого аккорда нет в базе')
      end;

 writeln('Хотите ещё? y/n');
 readln(n);
 until n='n';


   end;

END.

[RUSt88]

каждый аккорд - в отдельную процедуру, и пользуйся константами, а то в цифрах запутаться можно