Membuat program membuat bentuk segitiga di pascal

Bentuk segitiga di sini tercipta dari huruf yaitu huruf 'D'. Langsung saja

hasilnya : 

kodingannya :

uses crt;
var i,j,k,l,n : integer;
begin
 write('Banyaknya jumlah huruf di alas segitiga : ');readln(n);
    writeln; writeln;
     for i:=1 to n do
     begin
        for j:=i to n do
        write(' ');
          for k:=1 to i do
          write(' D');
        writeln;
     end;
     readkey;
end.

hurufnya klo mau diganti-ganti silahkan saja :D
maaf klo berantakan kayak muka yg bikin postingan XD

Note : Jika tidak bisa di compile coba ganti 'uses crt;' jadi 'uses winwincrt;' (tanpa tanda petik)