программирование на паскальabc

[karlmarks capital]

не могу не как разобраться
как сделать чтобы когда запускалась она запускалась с помощью
uses crt;
а когда запускаешь подпункт графика(3) она открывала его с помощью
uses graphABC;
а то получается что она сразу переходит на uses graphABC;

вот сам код

uses crt;
uses graphABC;
var
d, x, t, i : integer;
a :byte;
begin
repeat
clrscr;
writeln('Выберите действие');
writeln('1-о программе');
writeln('2-игра');
writeln('3-графика');
writeln('4-Выход из программы');
writeln('Выберите пункт меню');
repeat
read(a);
until a in [1..4];
case a of
1:begin
clrscr;
writeln ('введите сведения о студенте');
writeln ('');
writeln(' ');
writeln(' Pascal (Паскаль) - язык программирования общего назначения.');
writeln ('Создан в 1970 году специалистами Технического Университета в Цюрихе');
writeln ('(ETH, Zurich) под руководством профессора ');
writeln ('Никлауса Вирта (Niklaus Wirth).');
writeln (' После появления языка Pascal были созданы ');
writeln ('новые промышленные версии языка, ');
writeln ('а также языки-потомки, которые сохраняют основные синтаксические ');
writeln (' и семантические свойства языка Вирта: ');
writeln ('Modula, Turbo Pascal, Object Pascal (Delphi), ');
writeln (' Component Pascal (Oberon-2),');


end;
2:begin
Randomize;
x := random(9);
d := 9;
t := 4;
while d <> x do
begin
t := t-1;
writeln('Введите правильное число от 1-9: ');
readln(d);
if d > x then writeln('[Меньше] Неверно! ')
else if d < x then writeln('[Больше] Неверно! ')
else writeln('Поздравляем! Задуманное число совпадает с веденным. ');
if t = 0 then begin writeln('Вы проиграли! '); break end else writeln('Попыток: ', t);
end;
readln;
end;
3:begin

SetWindowSize (400,400);
SetBrushStyle (bsClear);
// строятся 5 окружностей с
// радиусами 10,20,30,40,50
for i:=1 to 5 do Circle(200,200,i*10);
end;


4:begin sleep(200);closewindow; end;
end;
until a=4;
END.