Вычисление следа матрицы. Опции

[Len]

Вычисление следа матрицы. След - это диагональные элементы матрицы. Матрица должна быть квадратная.
# 3 на 3
При запросе количества строк и столбцов вводить одно число.
n=m
Заполняем матрицу. Вывели на печать матрицу построчно и поэлементно.
Расстояние и по горизонтали и по вертикали одинаковое.
После вывода матрицы на печать, должен быть вопрос: сумму какого следа вы хотите посчитать?

Вот эта программа, ее делал Олег, но тут сразу вычисляется след матрицы и нет вопроса: сумму какого следа нужно посчитать.
Пожалуйста, кто-нибудь доделайте ее:

Код

Program massiv;
uses crt;
var
a:array[1..50,1..50]of real;
i,j,n:integer;
sled:real;
begin
clrscr;
write('Введите размерность матрицы: '); readln(n);
for i:=1 to n do for j:=1 to n do
begin
 write('Введите ',j,' элемент ',i,' строки');
 readln(a[i,j])
end;
For i:=1 to n do
begin
 for j:=1 to n do write(a[i,j]:4:0);
 writeln
end; sled:=0;
for i:=1 to n do sled:=sled+a[i,i];
writeln('След матрицы = ', sled:1:1);
end.