Как сделать титульный лист в паскаль? Не трудный желанно, ибо я

Program titul;
uses crt;
var x,y:byte;
s:string;
begin
clrscr;
s:='';
for x:=1 to 80 do глядя сколько столбцов на экране
s:=s+''; хоть какой знак для рамки
write(s);
gotoxy(1,24); самая нижняя строчка, первый столбец
write(s);
for y:=1 to 24 do
begin
gotoxy(1,y);
write('');
end;
for y:=1 to 24 do
begin
gotoxy(80,y);
write('');
end;
GotoXY(30,11);
write('My own program on TP7');
GotoXY(28,13);
write('Press any key to continue');
readkey;
end.