Необходимо сформировать на экране горизонтальное меню с использованием процедур и функций модулей CRT и DOS

uses crt,dos;
{массив названий пунктов меню}
const vybor:array[1..3] of string=('Текущее время',
                                   'Текущая дата',
                                   'В ы х о д');
procedure Menyu(var k:byte;kol:byte);
var kod: char;
    i:byte;
begin
clrscr;
k:=1;
gotoxy(5,1);
k:=1;
repeat
for i:=1 to kol do
 begin
  if i=k then
   begin
    textbackground(7);
    textcolor(13);
   end
  else
   begin
    textbackground(3);
    textcolor(4)
   end;
  gotoxy(13*(i-1)+1,1);
  write(vybor[i]);
  gotoXY(80,25);
 end;
 repeat
 kod:=readkey;
 until kod in [#75, #77,#13];
 case kod of
 #75: begin  {стрелка влево}
      k:=k-1;
      if k=0 then k:=kol;{если левый край, в конец}
      end;
 #77: begin  {стрелка вправо}
      k:=k+1;
      if k>kol then k:=1;{если правый край, в нaчало}
      end;
   end;
 until kod=#13;
end;
procedure Time;
function Zero(w:word):string;
var s:string;
begin
str(w,s);
if length(s)=1then s:='0'+s;
Zero:=s
end;
var h,m,s,ms:word;
begin
textbackground(0);
textcolor(15);
clrscr;
gettime(h,m,s,ms);
writeln('Сейчас ',Zero(h),':',Zero(m),':',Zero(s));
gotoXY(80,25);
readln
end;
procedure Date;
const days:array [0..6] of string[11] =
     ('Воскресенье', 'Понедельник', 'Вторник',
      'Среда', 'Четверг', 'Пятница', 'Суббота');
Var y,m,d,dow:word;
begin
textbackground(0);
textcolor(15);
clrscr;
getdate(y,m,d,dow);
WriteLn('Сегодня : ',days[dow],', ',m,'-',d,'-',y);
gotoXY(80,25);
readln
end;
procedure Vyhod;
begin
exit
end;
 
var k:byte;
begin
clrscr;
repeat
   Menyu(k,3);{выводим меню}
   case k of{выбираем стрелками действие}
   1:Time;
   2:Date;
   3:Vyhod;
   end;
until k=3;
end.