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

[dimon_snake]

var
a:array[1..1000,1..1000] of integer;
procedire matrix(num:integer);
var
l,m:integer;
begin
  for l:=1 to num do
  begin
    for m:=1 to num do
    begin
      Readln(a[l,m]);
      Write(a[l,m],' ');
    end;
    Writeln;
  end;
end;
var
n,i,j,k,sum1,sum2:integer;
begin
Readln(n);
Randomize;
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;
end.

[Vika2016]

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

var
a:array[1..1000,1..1000] of integer;
procedire matrix(num:integer);
var
l,m:integer;
begin
  for l:=1 to num do
  begin
    for m:=1 to num do
    begin
      Readln(a[l,m]);
      Write(a[l,m],' ');
    end;
    Writeln;
  end;
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;
end.

опять таки спасибо но с этим надо еще разобраться

на этом рядочке

procedire matrix(num:integer);

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

[Vika2016]

хах все хорошо там буква не та просто

[dimon_snake]

Вы что, никогда с процедурами не работали?
Замените procedire на procedure

[Vika2016]

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

хах все хорошо там буква не та просто

не заметила)

жалко что ввод не у форме таблицы

[dimon_snake]

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

не заметила)

жалко что ввод не у форме таблицы

А в чем проблема? Палки | добавьте и все дела.

[Vika2016]

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

А в чем проблема? Палки | добавьте и все дела.

это в процедуре да?
не выходит что то..

[dimon_snake]

Напишите, как добавили.

[Vika2016]

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

Напишите, как добавили.

никак не выходит да и вообще путаюсь в тех значениях что вводить нужно
ввожу 2
должно запросить ведь 4 элемента а запрашивает 8

[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;

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