Probleme triangle pascal

program colonne;
uses wincrt;
var
ch:string;
i:integer;
begin
repeat
writeln('donner un mot');
readln(ch);
until (length(ch)<12);
for i:=1 to (length(ch)) do
writeln(copy (ch,1,i));
end.

je sollicite votre aide concernant la comprehension du programme 'triangle de pascal' en language pascal. j'aimerais que le code source soit suivi de commentaires pour faciliter ma comprehension

éééééééééééo
esque c'est ça ton probléme ou non !!!!!!!!!!!!!!!!!

---------------------------------------------------------------------
salutttttttttttttttt   coucou !!!!!!!!!!!

salut Tony_montana21......

voila ton problém est résolut .....
(j'espére que je trouve moi aussi des solutions à mes problémes....)

program triangle;
uses crt;
const n=9;
var i,j:integer;
t:array[1..n*(n+1) div 2]of integer;
function F(i,j:integer):integer;
begin
F:=i*(i-1) div 2+(j-1)+1;
end;
begin
clrscr;
textbackground(red);
textcolor(white);
writeln(' *** LE TRIANGLE DE PASCAL ***');
writeln;
writeln;
for i:=1 to n do
begin
t[F(i,1)]:=1;
t[F(i,i)]:=1;
end;
for i:=1 to n do
for j:=2 to i-1 do
t[F(i,j)]:= t[F(i-1,j-1)]+t[F(i-1,j)];
for i:=1 to n do
begin
for j:=1 to i do
write(t[f(i,j)]:5, ' ');
writeln;
end;
readln;
end.

-----------------------------------------------------------------------------------------------
salutttttttttttttttt   coucou !!!!!!!!!!!