Матрицы,объявление двумерного массива.

program matrica;
const n=3;{количество столбцов матрицы}
      m=4;{количество строк матрицы}
var matrix:array[1..m,1..n] of integer;
    i,j:byte;
    sum:integer;
begin
writeln('Vvedite elementu matricu:');
for i:=1 to m do {заполнение матрицы числами}
  for j:=1 to n do
    begin
      write('Element [',i,',',j,']=');
      readln(matrix[i,j]);
    end;
writeln;
writeln('Ishodnaya matrica:');
for i:=1 to m do {вывод на экран полученой матрицы}
  begin
    for j:=1 to n do
      write(matrix[i,j]:4);
    writeln;
  end;
writeln;
for j:=1 to n do {сумирование столбцов матрицы}
  begin
    sum:=0;
    for i:=1 to m do
      sum:=sum+matrix[i,j];
    writeln('Suma elementov ',j,' stolbca: ',sum)
  end;
readln
end.

Program n1;
Uses Crt;
Var a:array[1..10,1..10] of byte;
    summ:array[1..10] of byte;
    i,j,k:integer;
begin
  Clrscr;
  for i:=1 to 3 do
    for j:=1 to 4 do
    begin
      write('a[',i,',',j,']= ');
      readln(a[i,j]);
    end;
  writeln('Poly4enna9 matrica');
  for i:=1 to 3 do
  begin
    for j:=1 to 4 do
    begin
      write(a[i,j]:3);
      summ[j]:=summ[j]+a[i,j];
    end;
    writeln;
  end;
  writeln('Summa elementov postro4no ravna ');
  for j:=1 to 4 do writeln(j,' stolbec*: ',summ[j]);
      readln;
    end.