Объявить целочисленный массив из 3 строк и 4 символов в строке, заполнить массив с клавиатуры и вывести его на экран. Посчитать и вывести количество нулевых элементов

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 const m=4;       n=3; var a:array[1..m,1..n]of char;     i,j,kk,ki:integer; begin writeln('Введите элементы массива русские строчные и прописные буквы'); for i:=1 to m do for j:=1 to n do readln(a[i,j]); writeln('Введенный массив'); kk:=0; ki:=0; for i:=1 to m do  begin   for j:=1 to n do    begin     write(a[i,j]:2);     if a[i,j] in ['к','К']then inc(kk)     else if a[i,j]in ['Ф'..'Я']then inc(ki);    end;   writeln;  end;  writeln('Количество букв К,к=',kk);  writeln('Количество букв от Ф до Я=',ki);  writeln('Перевод букв в нижний регистр');  for i:=1 to m do   begin    for j:=1 to n do     begin      if a[i,j] in ['А'..'Я']then a[i,j]:=chr(ord(a[i,j])+32);      write(a[i,j]:2);     end;    writeln;   end;  end.

 1