Delphi 7 (Pascal) - 2 задачи на матрицы

[Дашулька1991]

Причем препод говорит это на делфи 7 делать

[Ванно]

Здравствуйте, я студентка 1 курса... вот помоги с матрицей пожалуйста..Если можно напиши подробно после программы что вы брали и делали надеюсь мне помогут столько классные программисты (в отличие от меня)
Заполнить матрицу 10×10 следующим образом:

Вывести заполненную матрицу на экран компьютера или на принтер. Найти сумму четных элементов матрицы, вывести полученный результат.

program p23;
const n=3;
var a:array[1..n,1..n]of integer;
res,c,i,j,k:integer;
begin
writeln('Исходная матрица');
for i:=1 to n do \\здесь задается матрица соответствующая данной выше главной диагонали(и сама диагональ)
begin
for j:=1 to n do
if i=j then a[i,j]:=i*j
else a[i,j]:=i;
end;

for i:=1 to n do \\здесь матрица исправляется до конца приобретая исходный вид
for j:=1 to n do
if i=j then
for k:=i to n do
a[k,i]:=i*j;

for i:=1 to n do \\матрица выводится
begin
for j:=1 to n do
write (a[i,j],' ');
writeln;
end;

res:=0;
for i:=1 to n do \\мы ищем четные элементы и суммируем их
for j:=1 to n do
if a[i,j] mod 2=0 then
res:=res+a[i,j];
writeln('Сумма равна ',res);
end.