Turbo Pascal Window: Program Segitiga Pascal Dengan Inputan Apapun

Berikut adalah input koding untuk membuat program segitiga pascal dengan menggunakan variable tunggal apa saja yang dideret sebanyak 10 kali... ^^
berikut codingnya:
Program SegitigaSikuSiku;
uses wincrt;
var
   i,j:integer;
   m:char;
begin
     clrscr;
     write('Masukkan Sembarang Karakter: ');readln(m);
     i:=1;
     while i<=10 do
     begin
          j:=1;
          while j<=i do
          begin
               write(m);
               inc(j);
          end;
          writeln;
          inc(i);
     end;
     readln;
end.