trójkąt pascala

Program TPascala;

uses CRT;

function Silnia(n : integer) : integer;
begin
  if n < 2 then Silnia := 1
  else Silnia := n * Silnia(n-1);
end;

function DwumianN(m, n : integer) : real;
begin
  //Writeln(Silnia(m), Silnia(m - n), Silnia(n));
  DwumianN := Silnia(m) / (Silnia(m - n) * Silnia(n));
end;

procedure Przerwa(n : integer);
var i : integer;
begin
  for i := 1 to n do Write('   ');
end;

function TPascala(n : integer) : integer;
var i, j : integer;
begin
  for i := 0 to n - 1 do
  begin
    Przerwa(n - i);
    for j := 0 to i do
    begin
      Write(DwumianN(i, j):5:0, ' ')//, '->>j:', j, '  i:', i, '  ');
    end;
    Writeln();
  end;
end;

function TPascalaP(n : integer) : integer;
var i, j, k : integer;
begin
  k := 0;
  for i := 0 to n - 1 do
  begin
    //Przerwa(n - i);
    if (i mod 2) = 1 then Przerwa(1);
    for j := i - k to i do
    begin
      Write(DwumianN(i, j):5:0, ' ')//, '->>j:', j, '  i:', i, '  ');
    end;
    Writeln();
    k := k + i mod 2;
  end;
end;

var
  i : integer;

begin
  TPascala(10);
  TPascalaP(11);
  //Writeln('Jakis tekst');
  Readln(i);
end.