[Object pascal]Program ramki/tablica znakow

Witam mam problem z napisaniem pewnego programu zaczynam dopiero z object pascalem i wylozylem sie praktycznie na podstawowych rzeczach zazwyczaj siedzialem w php dlatego mam pewne problemy. Oto zadanie:
Napisac program [aplikacje konsolowa] ktora na ekranie wyswietli nam ramke szerokosci 80 "X" i wysokosci 24 "X"
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
X X
X X
X X
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
a w niej w srodku ramke o wielkosci 12x12 "x" nie mialem problemow dopuki nie mialem wypisac w tej malej ramce tablicy znaków od 33 do 126 napisalem jak na razie dwa fragmenty nie do konca udane ;/ jesli ktos wiedzial jak dokonczyc ten program prosil bym o pomoc ;]

program Pro1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,j : integer;
begin
for i := 1 to 22 do
for j := 1 to 80 do
Begin
If ((j=1) OR (j=80)) Then
write ('X')
Else
Begin
If (i=1) OR (i=22) Then
write('X')
Else
write (' ');
End;
End;

readln;
end.

2

program pro2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
I:integer;
procedure okno1;
begin
for I:= 1 to 78 do
write('X');
end;
procedure okno2;
begin
for I:=1 to 3 do
writeln('X X');
for I:=1 to 1 do
writeln('X xxxxxxxxxxxx X');
for I:=1 to 10 do
writeln('X x x X');
for I:=1 to 1 do
writeln('X xxxxxxxxxxxx X');
for I:=1 to 3 do
writeln('X X');
end;

begin
okno1;
writeln;
okno2;
okno1;
readln;

end.