Matriz Vetor

program MatrizVetor;
uses crt;
const NUMERO = 25;
var
    V :  array[1..NUMERO,1..NUMERO] of integer; //começa posicao 0
    l :  integer;
    c :  integer;
begin

     //Receber valores
     for l := 1 to Numero do
     begin
          for c := 1 to numero do
          begin
               if l = c then
                  V[l][c] := 1;

               if l < c then
                  V[l][c] := 0;

               if l > c Then
                  V[l][c] := 2;
          end;
     end;

     //Imprimir valores
     for l := 1 to Numero do
     begin
          for c := 1 to numero do
              write(V[l][c]);
          writeln('');
     end;
readkey;
end.