Animasi Chatting dari Pascal

Lagi tidak punya kerjaan, dosen masuk di dalam kelas tapi tidak mengajar hanya curhat-curhat, eh tiba-tiba ada ide buat bikin animasi. berhubung tidak punya kerjaan dan untuk menghilangkan perasaan galau yang dikarenakan dosen yang sedang curhat maka jadilah animasi penghilang galau ini :D..

inilah hasilnya, di perumpamakan, yang biru si saya dan yang pink si dia, walaupun dia tidak pernah chatting dengan saya. -_- SURAM., 

=====# SEMOGA BERMANFAAT UNTUK SEMUA PEMIRSA #=====

=====# Source #=====
uses crt;
var
  x, y : byte;
  s : string;begin
  clrscr;
  randomize;
  repeat
    x := random(15)+1;
    y := random(15)+1;
  until x<>y;
  repeat
    s := '';
    repeat
      s := s + chr(random(26)+96);
    until (random(10) = random(5)) or (length(s)>78);
    if random(2)=1 then begin
      gotoxy(1,25);
      textcolor(x);
    end
    else begin
      gotoxy(80-length(s),25);
      textcolor(y);
    end;
    writeln(s);
    delay(50);
  until keypressed;
end.
=================