Определить, сколько раз число 2 встречается в массиве

Var a:array[1..100,1..100] of integer; i,j,n,m:integer;
begin
Writeln('введите число строк и столбцов');
readln(n,m);
Writeln('введите массив');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
Writeln('введенный массив');
for i:=1 to n do
   begin
     for j:=1 to m do
     write(a[i,j]:4);
     writeln;
   end;

var b: array[1..100,1..100] of integer; k:integer;
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]=2 then begin b[i,j]:=1; k:=k+1; end else b[i,j]:=a[i,j];

Var a:array[1..100,1..100] of integer; i,j,n,m,k:integer;
begin
Writeln('введите число строк и столбцов');
readln(n,m);
Writeln('введите массив');
for i:=1 to n do
    for j:=1 to m do
        readln(a[i,j]);
Writeln('введенный массив');
for i:=1 to n do
   begin
     for j:=1 to m do
     begin
     write(a[i,j]:4);
     if a[i,j]=2 then inc(k);
     end;
   writeln;
   end;
if k>0 then
   begin
   writeln('В массиве ',k,' чисел 2');
   Writeln('Измененный массив');
   for i:=1 to n do
       begin
       for j:=1 to m do
           begin
           if a[i,j]=2 then a[i,j]:=1;
           write(a[i,j]:4);
           end;
       writeln;
       end;
   end else
   writeln ('В массиве чисел 2 нет');
end.