Вывести таблицы сложения и умножения в заданной системе счисления - Pascal

type operate = (add, mul);
const s: array[operate] of string[9] = ('сложения', 'умножения');
var a, b, t, p: byte;
    op: operate;
begin
  repeat
    write('Система счисления (0..9)? ');
    readln(p)
  until p in [2..9];
  for op := add to mul do
    begin
      writeln;
      writeln('Таблица ', s[op]);
      write('  |');
      for a := 0 to p - 1 do write(a:3);
      writeln;
      write('--+');
      for a := 1 to p do write('---');
      writeln;
      for b := 0 to p - 1 do
        begin
          write(b, ' |');
          for a := 0 to p - 1 do
            begin
              case op of
                add: t := a + b;
                mul: t := a * b
              end;
              if t < p
                then write('  ')
                else write(t div p:2);
              write(t mod p)
            end;
          writeln
        end
    end;
  readln
end.