процедура заставка Опции

[Svetka]

помогите сделать окошко типа
*********************
Программа
Автор:ФИО
Дата:11.03.05





*********************
(и по горизонтали и по вертикали тоже звёздочки)
эта заставка выводица на очищенный экран удерживается там 5 секунд и появляется решение задачи
решение:

Код

Program xxx;
uses crt;
type
matrica=array[1..15,1..13] of integer;
var
A,B:matrica;
maxA,maxB:integer;
procedure input (var d:matrica;n,k:integer);
var
i,j:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to k do
d[i,j]:=random(100);
End;
End;
procedure output (var d:matrica;n,k:integer);
var
i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to k do
Write(d[i,j]:4);
writeln;
End;
End;
function max_el(d:matrica;n,k:integer):integer;
var
i,j,max:integer;
begin
max:=d[1,1];
for i:=1 to n do begin
for j:=1 to k do
if d[i,j]>max then
max:=d[i,j];
max_el:=max;
End;
End;
begin
input(a,15,13);
input(b,5,7);
Writeln('matrica a');
output(a,15,13);
Writeln('matrica b');
output(b,5,7);
Readkey;
max_A:=max_el(a,15,13);
max_B:=max_el(b,5,7);
Writeln('max_A=',max_A);
Writeln('max_B=',max_B);
Readln;
End.

[APAL]

Код

Procedure Zastavka;
Begin
GoToXY(30,10);Write('**********************');
GoToXY(30,11);Write('*      Программа     *');
GoToXY(30,12);Write('*      Автор:ФИО     *');
GoToXY(30,13);Write('*    Дата:11.03.05   *');
GoToXY(30,14);Write('**********************');
Deley(5000);
End;

[Svetka]

у мя такой код,я сделала так:

Код

program xxx;
uses crt;
var
I:integer;
begin
clrscr;
GotoXY(1,1);
Writeln ( '**********************' );
for I := 0 to 5 do begin
 GotoXY(1,I+2);
 Write ( '*' );
 GotoXY(22,I+2);
 Writeln ( '*' );
end;
GotoXY(1,8);
Writeln ( '**********************' );
gotoXY(3,3);
writeln('Программа-заставка ');
gotoXY(3,5);
writeln(Автор:Света');
gotoXY(3,7);
writeln('Дата :11.03.05');
delay(60000);
clrscr;

дальше нужно вставить этот код

Код

Program xxx;
uses crt;
type
matrica=array[1..15,1..13] of integer;
var
A,B:matrica;
maxA,maxB:integer;
procedure input (var d:matrica;n,k:integer);
var
i,j:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to k do
d[i,j]:=random(100);
End;
End;
procedure output (var d:matrica;n,k:integer);
var
i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to k do
Write(d[i,j]:4);
writeln;
End;
End;
function max_el(d:matrica;n,k:integer):integer;
var
i,j,max:integer;
begin
max:=d[1,1];
for i:=1 to n do begin
for j:=1 to k do
if d[i,j]>max then
max:=d[i,j];
max_el:=max;
End;
End;
begin
input(a,15,13);
input(b,5,7);
Writeln('matrica a');
output(a,15,13);
Writeln('matrica b');
output(b,5,7);
Readkey;
max_A:=max_el(a,15,13);
max_B:=max_el(b,5,7);
Writeln('max_A=',max_A);
Writeln('max_B=',max_B);
Readln;
End.

нужно сделать так,что бы сначало была заставка......несколько секунд......окно очищается и появляется решение этой задачи......
у мя что-то не получается вставить...