Треугольником паскаля называется числовой треугольник, в котором по краям стоят единицы, а каждое число внутри равно сумме двух стоящих над ним в ближайшей строке сверху. Дано натуральное n. Получить первое n строк треугольника паскаля- Pascal(Паскаль)

uses crt;
var a:array[0..14,0..14]of integer;
    k,i,j,p:integer;
begin
clrscr;
repeat;
write('Введите натуральное число не более 13 k=');
readln(k);
until k in [0..13];
{Заполнение треугольника данными}
a[0,0]:=1;a[1,0]:=1;a[1,1]:=1;
for i:=2 to k do
   begin
    a[i,0]:=1;
    for j:=0 to i+1 do
    if j=i then a[i,j]:=1
    else a[i,j]:=a[i-1,j-1]+a[i-1,j];
  end;
{вывод треугольника}
if k<=10 then p:=4 else p:=5;{количество позиций под числа}
for i:=0 to k do
   begin
{вводим пробелы в начале каждой строки}
    write(' ':(k-i+1+((p div 2)-1)*(k-i)));
    for j:=0 to i do
    write(a[i,j]:p); {выводим треугольник}
    writeln;
   end;
writeln;
readln
end.