Курсовая работа: Информационно-справочная система Устройство персонального компьютера

end;

if (com=#13)and(i=2) then

begin

readf('edit.txt',false);

select;

end;

if (com=#13)and(i=3) then

begin

readf('search.txt',false);

select;

end;

if (com=#13)and(i=4) then

begin

readf('run.txt',false);

select;

end;

if (com=#13)and(i=5) then

begin

readf('debug.txt',false);

select;

end;

if (com=#13)and(i=6) then

begin

readf('compile.txt',false);

select;

end;

if (com=#13)and(i=7) then

begin

readf('options.txt',false);