Системы счисления помогите решить и посмотрите ошибки

[vdv08]

напечатать таблицу сложения однорозрядных чисел в p-ичной системе счисления,p<=16
program pr_1;
uses crt;
var a:array[1..15,1..15] of byte ;
var x,y,x1,y1,n,i,j,t:byte;
begin
writeln ('vvedite n=');
read (n);
for i:=1 to n do
begin
a[1,i]:=t;
t:=t+1;
end;
t:=0;
for i:=1 to n do
begin
a[i,1]:=t;
t:=t+1;
end;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=a[i,1]+a[1,j];

for i:=1 to n do
for j:=1 to n do
if a[i,j]>=n then a[i,j]:=a[i,j]-n+10;
for i:=1 to n do
begin
writeln(' ');
for j:=1 to n do
begin
if a[i,j]=20 then write('1A ');
if a[i,j]=21 then write('1B ');
if a[i,j]=22 then write('1C ');
if a[i,j]=23 then write('1D ');
if a[i,j]=24 then write('1E ');
if a[i,j]<20 then write(a[i,j],' ');
end;
end;
end.

[Plague]

Зачем так все усложнять?
Вот пользуйтесь:

const s:string='0123456789ABCDEF';
      s1:string=' 1';
var i,j,p,a1,a2:integer;
begin
  readln(p);
  for i:=0 to p-1 do
    begin
      for j:=0 to p-1 do
        begin
          a1:=(i+j) mod p;
          a2:=(i+j) div p;
          write(s1[a2+1],s[a1+1],'  ');
        end;
      writeln;
  end;
end.