Turbo Pascal (lagu anak ayam)

nahhhhhhhhhhh,,,,,,,ini lohhhhhh program yang paling membuat saya seneng sekaligus pusing belajar perulangan  pada pascal....
ni program anak ayam dahulu saya dikasi waktu semester 1...
semoga bermanfaat sob,,,

uses wincrt:
const a='lagu anak ayam ';
      b='anak ayam turunlah ';
      c='mati satu tinggalah ';
      d='mati satu tinggal induknya';
var
   i,j,n : byte;


begin
   clrscr;
   writeln('masukan jumlah anak ayam :');readln(n);
   for i:=1 to n do
   begin
        clrscr;
        writeln(a);
        writeln(b,i);
        for j:=1 to i-1 do
        begin
            writeln(c, i-j);
            writeln(b, i-j);
        end;
        writeln(d);
   end;
        readln;
        donewincrt;
end.



inget komennya sob,,,