Ошибки при выводе результатов в виде таблицы

[изо]

Прошу исправить ошибки которые имеются в указанной ниже программе,
которая выдаёт результаты расчета:
1) произведения z[i,j]натуральных чисел x=2*i+1 и y=2*j+1
2) a[i,j]= (z[i, j] * z[i, j] - z[i, j])/2
3) выбор из a[i,j] тех чисел, остаток деления которых на 9 равен 1
4) от выбранных a[i,j]отнять 1, далее разделить на 9 и распечатать в соответствующих ячейках таблицы

program tabl6;
const
n = 5;
m = 10;
r = 6;
c = 3;
p = ' ';
var
x: array[1..n] of real;
y: array[1..m] of real;
z: array[1..n, 1..m] of real;
a: array[1..n, 1..m] of real;
b: array[1..n, 1..m] of real;
i, j, k: byte;
begin
writeln; write(p:c, '|');
for j := 1 to m do write(j:r, '|');
writeln; write('---+');
for k := 1 to m do write('------+');
writeln;
for i := 1 to n do
begin Write(i:c, '|');
for j := 1 to m do
begin
x[i] := (2 * i + 1);
y[j] := (2 * j + 1);
z[i, j] := x[i] * y[j] ;
a[i,j] := (z[i, j] * z[i, j] - z[i, j])/2;
if b[i, j]mod 6 then Write(a[i, j]:r, '|')
else Write(p:r, '|')
end;
Writeln; write('---+');
for k := 1 to m do write('------+');
writeln;
end;
Readln
end.

[VadikV]

отформатируй код и укажи какие ошибки и получишь помощь