Exercicio 3 de Multidimensional

Program Pzim ;
{Elabore um algoritmo que leia a matriz da 3 linhas e 2 colunas. No final, imprima o maior e o
menor.}
var
m:array[1..3,1..2] of integer;
maior,menor, i,j:integer;

 Begin
    {inicio do programa}
     for i:=1 to 3 do
         begin
             for j:=1 to 2 do
                 begin
                     writeln('Digite os valores da matriz : ');
                     readln(m[i,j]);
                 end;
         end;       
         clrscr; // limpa a tela
         {recebe todos os valores da matriz de 6 posições}
    
     for i:=1 to 3 do
         begin
             for j:=1 to 2 do
                 begin
                     if ((i = 1) and (j = 1)) then         // a condição é que se i e j igual a 1, quer dizer a
                                                 //primeira posição da matriz
                         begin
                             maior:=m[1,1];           //    maior recebe o valor da primeira posição
                             menor:=m[1,1];            //    menor recebe o mesmo valor
                         end;
                 end;
         end;
        {atribui às variaveis maior e menor, os valores da primeira posição da matriz m}
       
    for i:=1 to 3 do
        begin
            for j:=1 to 2 do
                begin
                    if (m[i,j] > maior) then
                        begin
                            maior:=m[i,j] 
                        end                   // antes de um else não existe ponto e virgula
                    else
                    if (m[i,j] < menor) then
                        begin
                            menor:=m[i,j]
                        end;
                end;
        end;
    {compara todas as posições da matriz, tanto a variavel maior, como a variavel menor}
   
     writeln('O maior número é : ',maior, ' e o menor número é : ',menor);
    {exibe os dois numeros.}
   
 End.