Меню в ABC Pascal

[Desha]

Этот код без сбоев работает в обыкновенном ВР. Хотелось переделать его под АВС, но появилась проблема. После вызова какой либо процедуры, после ее выполнения возврат в меню не осуществляется. А точнее он осуществляется только не отображается. То есть если я вызову, допустим процедуру1, нажму ентер, то в окне так и останется надпись "процедура1". при нажатии срелки вниз и снова ентер, надпись поменяется на "процедура2". Получается что меню работает, и выход из процедуры осуществляется, но этого никак не видно((

uses crt;

const sel=$1e;
      norm=$1f;
      n=3;
      lu=#218;
      ru=#191;
      ld=#192;
      rd=#217;
      h=#196;
      v=#179;
      x1=8;
      x2=75;
      y1=2;
      y2=24;
      
var p,x,y:integer;
    ch:char;
    menu:array[1..n] of string[50];
    
procedure p1;
begin
clrscr;
writeln('procedure 1');
readln;
exit;
end;

procedure p2;
begin
clrscr;
writeln('procedure 2');
readln;
end;

procedure showmenu(x,y,p:integer); // вывод меню на экран

var i,k:integer;
menu:array[1..3]of string[50];
begin
highvideo;
        menu[1]:='1';
        menu[2]:='2';
        menu[3]:='3';
          clrscr;
     window(x1,y1,x2,y2);
     clrscr;
     write(lu);
     for k:=x1+1 to x2-1 do write(h);
     write(ru);
     for k:=y1+1 to y2-1 do
         begin
              gotoxy(1,k-y1+1);
              write(v);
              gotoxy(x2-x1+1,wherey);
              write(v);
         end;
         write(ld);
         window (x1,y1,x2,y2+1);
         gotoxy(2,y2-y1+1);
         for k:=x1+1 to x2-1 do write(h);
         write(rd);
         window(x1+1,y1+1,x2-1,y2-1);
         
CLRSCR;
       gotoxy(18,6);
       writeln(' Главное меню');
     gotoxy(18,8);
     textattr:=norm;
     writeln('=====================================');
     for i:=1  to  n do
     begin
         gotoxy(x,y+i-1);
         write(menu[i]);
     end;
     gotoxy(18,y+6);
     writeln('=====================================');
     textattr:=sel;
     gotoxy(x,y+p-1);
     write(menu[p]);
     textattr:=norm;
end;
Begin
        menu[1]:='1';
        menu[2]:='2';
        menu[3]:='3';
       
        p:=1;
     x:=21;
     y:=9;
     textattr:=norm;
     showmenu(x,y,p);
     repeat
      ch:=readkey;
      if ch=chr(0) then begin
         ch:=readkey;
         case ch of
              chr(80):
                      if p<n then begin
                         gotoxy(x,y+p-1);
                         write(menu[p]);
                         p:=p+1;
                         textattr:=sel;
                         gotoxy(x,y+p-1);
                         write(menu[p]);
                         textattr:=norm;
                         end;
              chr(72): if p>1 then begin
                         gotoxy(x,y+p-1);
                         write(menu[p]);
                         p:=p-1;
                         textattr:=sel;
                         gotoxy(x,y+p-1);
                         write(menu[p]);
                         textattr:=norm;
                         end;
              end;
        end
         else if ch=chr(13) then begin
              case  p of
                      1: begin clrscr; p1;end;
                      2: begin clrscr;p2;end;
                      
                      3: ch:=chr(27)
              end;
              clrscr;
              showmenu(x,y,p);
         end;
      until ch=chr(27);

End.