Найти ошибку в коде - Pascal (81285)

Формулировка задачи:

Добрый день. Будьте добры, проверьте пожалуйста код, у меня выдаёт ошибку. Помогите исправить ошибку.

uses crt 
var a:array[1..nmax,1..nmax] of real; 
n,i,j:integer; 
begin 
write('Введите n',nmax,' n='); 
readln(n); 
writeln('Исходная матрица:'); 
for i:=1 to n do 
begin 
for j:=1 to n do 
begin 
a[i,j]:=(i-j); 
write(a[i,j]:4); 
end; 
writeln; 
end;

Решение задачи: «Найти ошибку в коде»

Листинг программы

program errorinmatrix;
uses
  crt;
const
  nmax=100;
var
   a:array[1..nmax,1..nmax] of real;
   n,i,j:integer;
begin
  write('Введите n, не более чем ',nmax,' n=');
  readln(n);
  writeln('Исходная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=i-j;
          write(a[i,j]:8:2);
        end;
      writeln;
    end;
  readln;
end.

Объяснение кода листинга программы

В программе объявлены переменные n, i, j, которые будут использоваться для работы с матрицей.
Задано значение константы nmax, которая определяет максимальное количество элементов в матрице.
Объявлен массив a, который будет хранить матрицу.
В цикле for i:=1 до n выполняется итерация по строкам матрицы.
В вложенном цикле for j:=1 до n выполняется итерация по столбцам матрицы.
В каждой итерации внутреннего цикла значение переменной a[i,j] присваивается результату вычитания i и j.
Значение a[i,j] записывается в консоль в формате 8:2, где 8 - это число с плавающей точкой, а 2 - это число с фиксированной точкой.
После завершения внутреннего цикла, выполняется вывод значения переменной a[i,j].
После завершения внешнего цикла, программа завершается.