Написать комментарии к программе.

Народ помогите плз напишите коментарии к проге все если можно

program trianglepascal;
uses crt;
var n,i,j:integer; - объявляем целочисленные переменные n,i,j
function F (x,y:integer):integer; -объявляем функцию F с переменными х,у
begin - начинамем функцию
if (x=1) or (y=1) then F:=1 - задаём условие если х=1 или у=1 тогда функции присваиваем значение 1
else F:=F(x-1,y)+F(x,y-1); - если х не равно 1 или у не равно 1, тогда F:=f(x-1,y)+F(x,y-1)
end; - конец функции
begin - начинаем программу
clrscr; - очищаем экран
repeat; - цикл с послеусловием
writeln; - переходим на следующую строку
write(' Enter N: '); -выводим на экран сообщение "Enter N:"
read(n); -вводим n
until n>0; - проверяем , больше ли n нуля
for i:=1 to n do -начинаем цикл от i=1 до n
begin
writeln;
write('' : ( 2 *(n-i)+1)); -выводим на экран сообщение : ( 2 *(n-i)+1
for j:=1 to i do - начинаем цикл от j=1 до n
write(F(j,i-j+1):4);-вводим на экран (j,i-j+1):4
writeln; -переходим на следующую строку
end;
readln;
readkey;
end.