Animasi File dari Pascal

Barusan ingat yang diajarkan dosen master saya di kampus, Dosen super, namanya pak Syaiful. dan inilah contoh yang beliau berikan.,

=====# Semoga Bermanfaat Bagi Semua Pemirsa #=====
 

=====# Source #=====
uses crt;
var
  s : string;
  x : text;
  f : char;
begin
  clrscr;
  randomize;
  write('Nama file : '); readln(s);
  { masukan nama file yang ingin dibaca,
    jangan lupa tulis ekstensi filenya
    seperti *.pas, *.txt, dll
  }
  assign ( x, s);
  repeat
    reset (x);
    while not eof(x) and not keypressed do
      begin
        read (x,f);
        delay(random(100));
        write (f);
      end;
    close (x);
  until keypressed;
end.
==================