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

[Vika2016]

Сообщение от 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;
var
n,i,j,k,sum1,sum2:integer;
begin
Readln(n);
matrix(n);
for i:=1 to n do
sum1:=sum1+a[i,i];
k:=n+1;
for i:=1 to n do
begin
  k:=k-1;
  sum2:=sum2+a[i,k];
end;
Writeln('Главная диагональ: ',sum1);
Writeln('Вторая диагональ: ',sum2);
Readln;

Тогда проще так сделать.
Первый цикл читает, а потом все выводит.

после этого

Readln;

дописала

end.

а оно выдает ошибку...

[dimon_snake]

Перед

var
n,i,j,k,sum1,sum2:integer;

end; поставьте.

[Vika2016]

Сообщение от Vika2016

после этого

Readln;

дописала

end.

а оно выдает ошибку...

с компиляцией уже все хорошо только вот стало еще более запутанно..

[dimon_snake]

У меня все работает.

[Vika2016]

Сообщение от dimon_snake

У меня все работает.

матрица 2 на 2
элементы 1 2 3 4

числа 12 34 это вообще такое?

[Vika2016]

да и как ввод в форме таблицы сделать

[dimon_snake]

А что, выводит все слитно?
Неужели трудно изменить на Write(a[l,m],' ')

[Vika2016]

Сообщение от dimon_snake

А что, выводит все слитно?

ну да...

[Vika2016]

Сообщение от Vika2016

ну да...

вернее вертикально все

[dimon_snake]

Сообщение от dimon_snake

А что, выводит все слитно?
Неужели трудно изменить на Write(a[l,m],' ')

Писал уже.