MATRIZ em pascal no LAZARUS valores maior que 10

Trabalhando com matriz temos que utilizar linhas e colunas neste programa sera utilizado 6 linhas e 6 colunas e sera identificado por um contador quantos numeros maiores que 10 possui esta matriz apos o usuario preencher todas a posições desta matriz.

program project1;

{Euclezio-

ler uma matriz 6 por 6 contar e escrever quantos valores maiores que 10 ela possui}

{$mode objfpc}{$H+}

uses

  {$IFDEF UNIX}{$IFDEF UseCThreads}

  cthreads,

  {$ENDIF}{$ENDIF}

  Classes

  { you can add units after this };

var

{declaração da matriz}

matriz: array[1..6, 1..6]of integer;

{declaração das demais variaveis}

i,j, maior: integer;

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

begin

maior:=0;

{inicia-se um loop e dentro dele outro para que p primeiro loop seja a linha da matriz e o segundo loop seja as colunas assim os valores serão colocados nas coordenadas de "I" e "J"}

                for i:=1 to 6 do begin

                               for j:=1 to 6 do begin

                                               writeln( ' digite da linha ', i, ' e coluna ', j, ' valor:');

                                               readln(matriz[i,j]);

{neste trecho o "IF" vai testar de acordo com as posições se o valor contido nelas

é maior que 10 se isto ocorre ele incrementa mais 1 na variavel "maior"}

                                               if matriz[i,j]> 10 then maior:= maior+1;

                               end;

                end;

{aqui mostra a quantidade de numeros maiores que 10 que estão na variavel "MAIOR"}

                writeln(' a quantidade de numeros maior que 10 é ou são: ', maior);

                readln;

end.