Помогите составить процедуру - Вычислить сумму диагональных элементов квадратной матрицы

[dimon_snake]

var
a:array[1..1000,1..1000] of integer;
procedure matrix(num:integer);
var
l,m:integer;
begin
  For l:=1 to num do
      for m:=1 to num do
          Readln(a[l,m]);
for l:=1 to num do
begin
  for m:=1 to num do
    Write(a[l,m],' ');
  Writeln;
end;
end;
var
i,k,j,n,sum1,sum2:integer;
begin
Readln(n);
Randomize;
matrix(n);
for i:=1 to n do
sum1:=sum1+a[i,i];
sum2:=0;
k:=n+1;
for i:=1 to n do
begin
  k:=k-1;
  sum2:=sum2+a[i,k];
end;
Writeln('Главная диагональ : ',sum1,', вторая диагональ - ',sum2);
Readln;
end.

[Vika2016]

ну оно потом самое таблицу рисует
а разве нельзя чтоб сразу через гото xy это как бы
пробовала это куда то вписать но не компилирует

а то числа вводяться вертикально а таблица потом сама рисуеться
надо чтоб числа сразу в форме таблицы записывались

[dimon_snake]

Издеваетесь?
Это такая большая проблема?

[dimon_snake]

procedure matrix(num:integer);
var
l,m:integer;
begin
  For l:=1 to num do
      for m:=1 to num do
          if m=num then 
          Readln(a[l,m)
          else
          Read(a[l,m]);
end;

[Vika2016]

ну для кого как...

да и оно это не компилирует ошибки в буквах исправила но всеравно

[Vika2016]

Помогите хоть кто нибудь
нужен ввод в форме ТАБЛИЦЫ!

[Vika2016]

Спс уже не надо