Дан двухмерный массив 10 на 10. найти сумму всех элементов. кол во элементов коатных 5

Program z; var p,s,n,m: integer; a: array [1..10,1..10] of integer; begin      writeln('введите кол-во столбцов');       readln(n);       writeln('введите кол-во строк');       readln(m);       writeln('ввод матрицы');       for var i: =1 to n do              for var j: =1 to m do                  begin                        write('a[',i,',',j,']=');                         readln(a[i,j]);                   end;       writeln('вывод матрицы');       for var i: =1 to n do          begin                  for var j: =1 to m do                          write(a[i,j],' ');                   writeln;           end;       s: =0;         for var i: =1 to n do              for var j: =1 to m do            begin                  s: =s+a[i,j];             end;     p: =0;     for var i: =1 to n do          for var j: =1 to m do              if a[i,j] mod 5 = 0   then        begin              inc(p);         end;     writeln('сумма элементов - ',s);       writeln('кол-во элементов, кpатных 5 - ',p); end.

Вы даже изначальную строку с ошибками! сая большая социальная сеть в россиисэто судя по всему ответ номер 1. обоснование: const ss = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; var   s : string;   i : byte; begin   s: ='фгв дсояыгв фсщлгояргв фзхя е усффллфахс';   for i: =1 to length(s) do       if pos(s[i],ss)> 0 then           if pos(s[i],ss)> 3 then s[i]: =ss[pos(s[i],ss)-3] else s[i]: =ss[length(-pos(s[i],ss))];   writeln(s); end.