Trabalhando com matrizes em Pascal no Lazarus

bom este artigo é bem rapido e simples ele é sobre matrizes entao vamos ao codigo:

program PAG88;
{ESTE PROGRAMA TEM A FUNÇÃO DE MOSTRAR O FUNCIONAMENTO DE UMA MATRIZ}

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
{logo abaixo é declarado um novo tipo de varialvel ex: string, so que neste caso 

ela é do tipo array ou uma matriz pois dessa forma todas as vezes que for 

criado uma matriz com o mesma dimensão não sera necessario escrever todo o codigo}
type
m = array [1..3,1..4] of integer;
n = array [1..2,1..4] of string;
var
{aqui são declaradas as variaveis do tipo em vez de ser string sera M ou N  que são um tipo matriz}
    m1: m;
    n1: n;
    i,j: integer;

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}

begin
     j:= 2;
{este codigo vai atribuir valores a cada linha e coluna de uma matriz a letra I é a posição da linha e a letra J é a da coluna}
     for i := 1 to 3 do
     begin
         m1 [i,j]:= 2;
         m1 [i,j+2]:= 2;
         m1 [i,j-1]:= 1;
         m1 [i,j+1]:= 1;
     end;
{aqui tambem sera populada uma matriz com um teste de se o I é igual ao J ou não}
     for i := 1 to 2 do begin;
         for j := 1 to 2 do begin;
             if i = j then n1[i,j]:= 'A'
             else n1[i,j]:= 'Z' ;
         end;
     end;
{este loop foi criado para exibir a primeira matriz observem que existe 2 loop 1 dentro do outro}
         for i := 1 to 3 do begin;
         for j := 1 to 4 do begin
{a letra I determina a linha e a letra J a coluna}
         write(m1[i,j]:2);

         end;
           WRITELN();
      end;
{este loop foi criado para exibir a segunda matriz observem que existe 2 loop 1 dentro do outro}
         for i := 1 to 2 do begin;
         for j := 1 to 4 do begin
{a letra I determina a linha e a letra J a coluna}
         write(n1[i,j]:2);

         end;
                     WRITELN();
      end;
    READLN;
 end.