Viết chương trình pascal tình yêu đơn giản

uses crt;
type
      str79=string[79];


var s,s2,ban1,ban2:string;
stop:boolean;
n,i:integer;
Procedure heart;
begin
textcolor[lightred];
Writeln['      **       **  *       * *   '];
writeln['    *   *   *     *  *  *     *  '];
Writeln['  *       *        *   *       *  '];
writeln['  *                *           *  '];
writeln['   *               *           *  '];
writeln['    *             *           *   '];
writeln['     *           *          *     '];
writeln['      *        * *        *       '];
writeln['       *     *    *     *         '];
writeln['        *  *       *  *           '];
writeln['         *          *             '];
end;
Procedure load[t:integer]; {thoi gian load[so giay], cho oai thoi chu chang
chuc nang j ca hj` hj`}
var i:integer;
  begin
   Write['Loading'];
   for i:=1 to 10 do
     begin
     write['.'];
     delay[t*100]; {vi thoi gian cua ham delay la mili giay nen...tu => ra nhe'}
     end;
  write['100% Done!'];
  clrscr;
end;
Procedure Cangiua[var s:str79];
 var i,n:integer;
   begin
    n:=length[s];
    n:=[80-n] div 2;
    for i:=1 to n do s:=' '+s;
   end;
Procedure chu_chay[s:str79; var s2:str79];
 var i,n:integer;
   begin
    s2:=copy[s,2,length[s]-1]+s[1];
   end;
Procedure chucmung[x,y:integer];
  begin
   Gotoxy[x,y]; Writeln['_._'];
   gotoxy[x,y+1];Write  ['/ \'];

   delay[300];
   Gotoxy[x+4,y]; write['\./'];
   Gotoxy[x+4,y+1]; write['/ \'];
  end;



begin clrscr;
Write['Nhap ten ban: ']; Readln[ban1];
Write['Nhap ten nguoi ay hjhj: ']; Readln[ban2];
Ban1[1]:=upcase[ban1[1]];
Ban2[1]:=upcase[ban2[1]];
S:=ban1+' want to say: I LOVE '+ban2;
load[5];
clrscr;
cangiua[s];
stop:=false;
i:=1;
textcolor[darkgray];
While i