В двумерном массиве хранится информация о зарплате 18 сотрудников фирмы за каждый месяц года. Определить общую зарплату, выплаченную за год всем сотрудникам фирмы — Pascal(Паскаль)

const
N = 18; {максимальное количество сотрудников}
M = 12; {количество месяцев, для которых есть значение зарплаты}
 
 
var
a: array [1..N, 1..M] of integer; {массив зарплат}
k, {реальное количество сотрудников}
l, {реальное количество месяцев с зарплатой}
i, j, {счетчики}
s: integer; {переменная суммированной зарплаты}
 
BEGIN
 
write('Enter k between 1 and ', N, ' : '); {справка пользователю}
readln(k); {считали реальное количество сотрудников}
write('Enter l between 1 and ', M, ' : '); {справка пользователю}
readln(l); {узнали реальное количество месяцев}
writen;
 
{Ввод зарплат}
for I:= 1 to k do
begin
writeln('Worker number ', i, ' : ');
for j:= 1 to l do
begin
write('Month ', j, ' : ');
readln(a[i,j]);
end;
writeln;
end;
 
{Ввели зарплаты. Теперь считаем их сумму}
s:= 0;
 
for i:= 1 to k do
   for j:= 1 to l do
s:= s + a[i,j];
 
{Посчитали. Теперь выведем результат на экран}
 
writeln(' Result is :', s);
readln;
 
END.