[maskman]

Neronix
Вот набрасал за пару минут посмотри может подойдет.

program Matrix;
const
  n=8;
  m=8;
var
  A: array [1..8, 1..8] of integer;
  i, j: integer;
  temp: integer;

begin
  for i:= 1 to n do
    for j:= 1 to m do
      begin
        write ('a[',i,',',j,']=');
        readln(A[i,j]);
      end;
  temp:= 0;
  writeln ('Glavnaya diagonal: ');
  for i:=1 to n do
    for j:= 1 to m do
      begin
        if j=7 then temp:= temp + A[i,j];
        if i=j then write (A[i,j],' ');
      end;
  writeln;
  writeln ('Summa stolbca = ', temp);
  readln;
end.