Меню для готовой программы, как совместить CRT и GraphABC - PascalABC.NET

uses graphabc;
const t=0.001; //точность сравнения
      n=20;//количество точек
type point=record
           x,y:integer;
           end;
function Plosh(a,b,c:point):real;//площадь треугольника по координатам
begin
Plosh:=abs(a.x*(b.y-c.y)+b.x*(c.y-a.y)+c.x*(a.y-b.y))/2;
end;
{проверка внутри или нет}
function Prin(a,b,c,d:point):boolean;
var s,s1,s2,s3:real;
begin
s:=Plosh(a,b,c);{площадь данного треугольника}
s1:=Plosh(a,b,d);{1 маленький}
s2:=Plosh(a,c,d);{2}
s3:=Plosh(b,c,d);{3}
Prin:=abs((s1+s2+s3)-s)0 then //если треугольник
 begin
  kv:=0;
  kn:=0;
  for p:=1 to n do
  if not(p in [i,j,k]) then //вершины треугольника не считаем
   begin
    if (Prin(m[i],m[j],m[k],m[p]))then kv:=kv+1
    else kn:=kn+1;
   end;
  if kv>mn then
   begin
    mn:=kv;
    imn:=i;
    jmn:=j;
    kmn:=k;
   end;
 end;
 
{нарисуем треугольник}
setpencolor(clGreen);
circle(xc+m[imn].x*10,yc-m[imn].y*10,4);
floodfill(xc+m[imn].x*10,yc-m[imn].y*10,clGreen);
circle(xc+m[jmn].x*10,yc-m[jmn].y*10,4);
 
circle(xc+m[kmn].x*10,yc-m[kmn].y*10,4);
 
line(xc+m[imn].x*10,yc-m[imn].y*10,xc+m[jmn].x*10,yc-m[jmn].y*10);
line(xc+m[jmn].x*10,yc-m[jmn].y*10,xc+m[kmn].x*10,yc-m[kmn].y*10);
line(xc+m[imn].x*10,yc-m[imn].y*10,xc+m[kmn].x*10,yc-m[kmn].y*10);
{нарисуем точки}
kv:=0;
kn:=0;
for i:=1 to n do
 begin
  if Prin(m[imn],m[jmn],m[kmn],m[i]) then {внутри}
   begin
    setpencolor(clBlue);
    kv:=kv+1;
   end
  else
   begin
    setpencolor(clRed);{снаружи}
    kn:=kn+1;
   end;
  circle(xc+m[i].x*10,yc-m[i].y*10,2);
 end;
str(kv-3,s1);//вершины треугольника не считаем
str(kn,s2);
textout(10,10,'Внутри='+s1+' снаружи='+s2);
end.

uses crt,graphabc;
{массив названий пунктов меню}
const vybor:array[1..3] of string=('Ввод с клавиатуры',
                                   'Ввод с файла',
                                   '5-Выход');
procedure Menyu(var k:byte;kol:byte);
var kod: char;
    i:byte;
begin
clrscr;
k:=1;
gotoxy(1,1);
repeat
  for i:=1 to kol do
   begin
     if i=k then
      begin
         textbackground(2);
         textcolor(1);
      end
     else
      begin
         textbackground(7);
         textcolor(0)
      end;
     gotoxy(1,i);
     write(vybor[i]);
   end;
  writeln;
  textbackground(0);
  textcolor(15);
  write('Для выхода можно нажать Esc..');
  repeat
  kod:=readkey;
  until kod in [#13, #38, #40,#27];
  case kod of
  #38: begin  {стрелка вверх}
       k:=k-1;
       if k=0 then k:=kol;{если верхний край, вниз}
       end;
  #40: begin  {стрелка вниз}
       k:=k+1;
       if k>kol then k:=1;{если нижний край, вверх}
       end;
  #27:begin{возможность выхода по Esc}
      k:=3;
      exit;
      end;
  end;
 until kod in [#13,#27];
end;
 
var k:byte;
begin
textbackground(3);
textcolor(14);
clrscr;
gotoXY(30,11);
write('Выберите, как вы хотите ввести массив точек');
gotoXY(25,12);
write('перемещение по меню стрелки вверх и вниз');
gotoXY(29,13);
write('выбор пункта меню клавиша ENTER');
textcolor(15);
gotoXY(35,15);
write('нажмите Enter');
readln;
repeat
   Menyu(k,3);{выводим меню}
   case k of{выбираем стрелками действие}
   1:begin
     clrscr;
     writeln('Тут типо ввод с клавы');
     write('нажмите Enter');
     readln;
     end;
   2:begin
     clrscr;
     writeln('Тут как то ввести с файла1');
     write('нажмите Enter');
     readln;
     end;
   end;
 until k=3;
end