21. дан двухмерный массив. найти сумму элементов массива.

Алгоритм такой, здесь вложенный цикл.
Начало
Ввод массива A(n, m)
Сумма S = 0
Цикл по i от 1 до n
    Цикл по k от 1 до m
        S = S + A(i, j)
    Конец цикла по k
Конец цикла по i
Вывод S
Конец

 const     
n = 5;     
m = 5; 
var   
a : array [1..m,1..m] of integer;   
s,i,j : integer; 
begin 
 //Формирование массива пропущено 

s := 0; 
 for i := 1 to n do   
for j := 1 to m do   
 s := s + a[i,j];     

   writeln (s);
 end.