Написание меню (псевдографика) - PascalABC.NET

uses crt;
type ItemArr=array[1..20] of string;
var
  a:ItemArr;
  s:string;
  NItems,i:integer;
function menu(Items:ItemArr;n,x1,y1,x2,y2,color:integer):integer;
var
  i,j,k:integer;
  c:char;
begin
  window(1,1,80,25);
  textbackground(Color);
  textcolor(White);
  clrscr;
  i:=1;
  k:=x2-x1;
  repeat
    for j:=1 to n do begin
      if j=i then begin
        textbackground(LightBlue);
        textcolor(LightRed);
      end else begin
        textbackground(color);
        textcolor(White);
       end;
       gotoxy(k div 2-length(Items[j]) div 2,1+j);
     write(Items[j]);
    end;
    c:=readkey;
    if c=#0 then begin
      c:=readkey;
      case ord(c) of
        38: if i>1  then i:=i-1 else i:=n;
        40: if i<n then i:=i+1 else i:=1;
      end;
    end;
  until c=#13;
  menu:=i;
end;
begin
  clrscr;
  NItems:=3;
  a[1]:='Меню1';
  a[2]:='Меню2';
  a[3]:='Выход';
  repeat
    i:=menu(a,NItems,20,10,60,10+NItems+1,green);
    if i=NItems then exit else begin clrscr;writeln('Выбран пункт меню:',i);readln;end;
  until false;
end.