uses crt;
const a=25;b=7;
      Ten='Name:      Hector';
      Mail='Email:     vinhvantt@gmail.com';
      Phone='Phone No.: 0163.886.78.58';
      Addr='Address:   Xuan Bac - Xuan Loc - Dong Nai';
var i,j:byte;
begin
    for j:=1 to b do
    begin
         for i:=1 to a do
         if (i=1)or(i=a)or(j=1)or(j=b) then
         write('* ')
         else write(#32#32);
         writeln;
    end;
         window(3,2,45,5);
         textcolor(lightgreen);   
    repeat    
         gotoxy(1,1);
         delline;delline;delline;delline;
         for i:=1 to length(Ten) do
         if keypressed then halt else
         begin write(Ten[i]); delay(70); end; delay(500);
         writeln;
         for i:=1 to length(Mail) do
         if keypressed then halt else
         begin write(Mail[i]); delay(70); end;delay(500);
         writeln;
         for i:=1 to length(Phone) do
         if keypressed then halt else
         begin write(Phone[i]); delay(70); end;delay(500);
         writeln;
         for i:=1 to length(Addr) do
         if keypressed then halt else
         begin write(Addr[i]); delay(70); end;delay(900);
    until keypressed;
end.