PASCAL - Procedury

Witajcie! Mam pewny problem z procedurami. Rysuję ramkę na Free Pascalu za pomocą procedury.
Jednakże ramka pojawia się w lewym górnym rogu a ja chcę aby pojawiła się na współrzędnych (15,15).

Na internetowych kursach było aby "GotoXY(15,15);" ustawić pod ramką w procedurze lecz to nie działa. Google Page Rankingóbowałem na różne sposoby lecz nie wychodzi.
Gdy ustawiłem na górze to przestawiło mi tylko poprzeczkę ramki :/
Z góry dziękuje za pomoc.

----------------------------------------------------------------------------------------------------------------------------------
treść programu
----------------------------------------------------------------------------------------------------------------------------------

Kod:

program ramka_procedurowa;
Uses CRT;
Procedure ramka;

var
x,y:integer;

Begin
 writeln('#########');
 writeln('#                   #');
 writeln('#########');
 GotoXY(15,15);
end;

Begin
Clrscr;
 ramka;
 GotoXY(17,16);
  writeln('PAWEŁ');
 readln;
end.

Uwaga: To jest stary temat Ta dyskusja jest starsza niż 90 dni. Informacje w niej zawarte mogą już nie być aktualne

oj chłopie pomyśl co Ty robisz
Pokombinuj ze zmianą miejsca gotoxy bo stosujesz to w złym momencie. Może trzeba ją więcej razy wywołać? pomyśl.

PS.
Po co Ci w procedurze zmienne x i y skoro nie korzystasz z nich?

zgadzam się z przedmówcą. Po co korzystasz z x i y, a ty niezle pokombinowales z ta funkcja. Wystarczy troche pomyslec. Czy jak najpierw karzesz cos napisac a potem dopiero powiesz gdzie to czy ktos ci za pierwszym razem napisze to tam gdzie chcesz?

a ma ktoś może poradnik pascala dla zielonych ? xD Bo to co mam na lekcji to nic...

Kod:

program ramka_procedurowa;
uses crt;
procedure ramka;

begin
gotoxy(15,15);
writeln('#######');
gotoxy(15,16);
writeln('#     #');
gotoxy(15,17);
writeln('#######');
end;
begin
clrscr;
ramka;
readln;
gotoxy(16,16);
writeln('PAWEL');
readln;
end.