Написать программу, которая подсчитывает первые десять строчек треугольника Паскаля — Pascal()

{$S+}
program Pascal;
 
uses
        Crt;
 
var
        n, k: Word;
 
function n_choose_k(n, k: Word): LongInt;
 
begin
        if KeyPressed then
                Halt;
        if k = 0 then
                n_choose_k := 1
        else
                if k = n then
                        n_choose_k := 1
                else
                        n_choose_k := n_choose_k(n - 1, k - 1) + n_choose_k(n - 1, k);
end;
 
begin
        ClrScr;
        for n := 0 to 10 do
        begin
                Write(n_choose_k(n, 0):(40 - 3 * n));
                for k := 1 to n do
                        Write(n_choose_k(n, k):6);
                WriteLn;
        end;
        WriteLn;
        
        Write('Ќ*¦¬ЁвҐ <Enter>:'); ReadLn;
end.