window() ( Pascal )

[Artificial]

Из-зи травм пропускаю уроки, пытаюсь дома сам догонять.
Задача: Функцией window() создать окно, сделать ему рамку и в середину окна поставить надпись.
Задача легкая, но у меня почему-то не выходит.

program okno;
uses CRT;
var i: integer; 
     s:string;

procedure okno;
begin
s:='Menu';
window(5,10,15,15);
textbackground(7);
clrscr;
textcolor(4);
gotoxy(round((15-5-Length(s)-2)),1);
write(s);
write(#201);
for i:=1 to (15-5-1) do write(#205);
write(#187);
for i:= 2 to (11-5-1) do
                            begin
                            gotoxy(1,i);write(#186);
                            gotoxy((15-5+1),i);write(#186);
                            end;
                            writeln;
write(#200);
for i:=1 to (15-5-1) do write(#205);
write(#188);
end;
begin
clrscr;
okno;
readln;
end.

[_Dmitry]

Подобная задача уже была, посмотрите здесь
http://www.programmersforum.ru/showthread.php?t=11811