SoloCodigo

osea es un solo vector, que quiero comparar los elementos que le cargue adentro
estoy usando turbo pascal 7

gracias por el dato, COMPILA Y TODO  

gracias che. deje de lado la matriz cubica   , es mucho para un principiante como yo. y por eso quiero sumar los valores de las filas de una matriz que yo ingreso, pero no logro que se sumen, lo sumo me devuelve el valos de la ultima columna de las filas. De verdad me estoy volviendo loko, y los libros mucho no los llego a entender del todo. bueno que se yo, se que parece una boludes que no me doy cuenta de mi error

{--------------------------------------------------------------------------}
program matrices;
uses crt;
const MAX_COLUMNA = 3;
      MAX_FILA = 2;
Type COLUMNA = 1..MAX_COLUMNA;
     FILA= 1..MAX_FILA;
     MiEntero = integer;
     tMatriz = Array[COLUMNA,FILA] of MiEntero;
var Matriz: tMatriz;
    contadorg: integer;
{-----------------------------------------------------}
procedure carga(var mat: tMatriz);
   var i: FILA;
   j: COLUMNA;

   begin
   clrscr;

   for i:=1 to MAX_FILA do
   for j:=1 to MAX_COLUMNA do
      begin
        write ('ingrese el valor [', i, ', ', j,'] ');
        readln (mat[i,j]);
      end;
     readkey;

   end;
{-----------------------------------------------------}
procedure suma (mat: tmatriz);
type
tvector= array[FILA] of integer;
var
x: FILA;
y: COLUMNA;
matrizaux:tvector;
suma: integer;
begin
     for x:=1 to MAX_FILA do
         begin

         for y:=1 to MAX_COLUMNA do
            matrizaux[x,y]:=0;
            begin

            matrizaux:= matrizaux + mat[x,y];

            end;
            Writeln ('la suma de las columnas es ',matrizaux,'');
         end
end;
{---------------------------------------------------------}
procedure imprime (mat: tMatriz);
   var i: FILA;
       j: COLUMNA;
   begin
   clrscr;
   for i:=1 to MAX_FILA do
      begin
           for j:=1 to MAX_COLUMNA do
           write (mat[i, j]:5);
           writeln;
      end;
   readkey;
   end;
{---------------------------------------------}
begin {estos es el cuerpo principal}
     clrscr;
     carga (matriz);
     imprime (matriz);
     readkey;
     suma (matriz);
     readkey;
end.