как посчитат цыфры 2 в массиве

const n=5;
 
var
    a:array [1..n] of integer;
 
     i,s,w,z,k,p:integer;
 
begin
    //заполняю
     for i:=1 to n do
     begin
          read( a[i] );
     end;
 
     //операция
 
     for i:=1 to n do
     begin
          w:=a[i];
          z:=w;
          s:=0;
          while w>0 do
          
          begin
               k:=w mod 10;
               w:=w div 10;
 
               if w mod 2=0 then s:=s+1;
end;
          
              write (s);
          
end;
 
end.

uses crt;
const n=5;
var a:array [1..n] of integer;
    i,s,w,z,k,p:integer;
begin
//заполняю
for i:=1 to n do
read( a[i] );
//операция
s:=0;
for i:=1 to n do
 begin
  w:=a[i];
  while w>0 do
   begin
    k:=w mod 10;
    if k=2 then s:=s+1;
    w:=w div 10;
   end;
 end;
 write (s);
end.

uses crt;
const n=5;
var a:array [1..n] of integer;
    i,s,w,z,k,p:integer;
begin
//заполняю
for i:=1 to n do
read( a[i] );
//операция
for i:=1 to n do
 begin
  w:=a[i];
  s:=0;
  while w>0 do
   begin
    k:=w mod 10;
    if k=2 then s:=s+1;
    w:=w div 10;
   end;
  writeln('В числе ',a[i],' кол.цифр 2=',s);
 end;
end.

uses crt;
const n=5;
var a:array [1..n] of integer;
    i,s,w,k,ss:integer;
begin
//заполняю
for i:=1 to n do
read( a[i] );
//операция
ss:=0;
for i:=1 to n do
 begin
  w:=a[i];
  s:=0;
  while w>0 do
   begin
    k:=w mod 10;
    if k=2 then s:=s+1;
    w:=w div 10;
   end;
  writeln('В числе ',a[i],' кол.цифр 2=',s);
  ss:=ss+s;
 end;
write('Всего цифр 2=',ss)
end.

uses crt;
const n=5;
var a:array [1..n] of integer;
    i,w,k,m,p:integer;
begin
//заполняю
for i:=1 to n do
read(a[i]);
clrscr;
for i:=1 to n do
write(a[i],' ');
writeln;
//операция
for i:=1 to n do
 begin
  w:=a[i];
  if w=0 then write(w)//если число 0, то его не проверяем
  else
   begin
    m:=0;
    p:=1;
    while w > 0 do
     begin
      k:=w mod 10;
      if k<>2 then //если не 2
       begin
        m:=m+k*p;//продолжаем составлять новое число
        p:=p*10;
       end;
      w:=w div 10;
     end;
    if m<>0 then write(m); //если остались цифры, то выводим число
   end;
 end;
end.

Uses CRT;
Var m,j,l:longint;
    mas:array[1..100] of integer;
    n,i:byte;
begin
repeat
 write('Ââåäèòå ðàçìåðíîñòü ìàññèâà: ');
 readln(n);
until n in [1..100];
randomize;
writeln('Èñõîäíûé ìàññèâ: ');
for i:=1 to n do
 begin
  mas[i]:=random(20)-12;
  write(mas[i]:4);
 end;
 writeln;
writeln('Ðåçóëüòèðóþùèé ìàññèâ: ');
for i:=1 to n do
 begin
  m:=1;
  j:=abs(mas[i]);
  l:=0;
  while j>0 do
   begin
    l:=l*10+j mod 10;
    j:=j div 10;
    m:=m*10;
   end;
   if (mas[i]>0) and (l mod 10<>1) then mas[i]:=mas[i]+m
   else if (mas[i]<0) and (l mod 10<>1) then mas[i]:=(abs(mas[i])+m)*-1
   else if mas[i]=0 then mas[i]:=10;
  write(mas[i]:4);
 end;
readln
end.

const n=5;
var a:array [1..n] of integer;
    i,w,k,m,p:integer;
begin
//заполняю
for i:=1 to n do
read(a[i]);
clrscr;
for i:=1 to n do
write(a[i],' ');
writeln;
//операция
for i:=1 to n do
 begin
  w:=a[i];
  if w=0 then write(w)//если число 0, то его не проверяем
  else
   begin

Var m,j,l:integer;
    mas:array[1..100] of integer;
    n,i:byte;
begin
repeat
 write('Ââåäèòå ðàçìåðíîñòü ìàññèâà: ');
 readln(n);
until n in [1..100];
writeln('Èñõîäíûé ìàññèâ: ');
for i:=1 to n do
 readln(mas[i]);
for i:=1 to n do
 write(mas[i]:4);
writeln;
writeln('Ðåçóëüòèðóþùèé ìàññèâ: ');
for i:=1 to n do
 begin
  m:=1;
  j:=abs(mas[i]);
  l:=0;
  while j>0 do
   begin
    l:=l*10+j mod 10;
    j:=j div 10;
    m:=m*10;
   end;
   if (mas[i]>0) and (l mod 10<>1) then mas[i]:=mas[i]+m
   else if (mas[i]<0) and (l mod 10<>1) then mas[i]:=(abs(mas[i])+m)*-1
   else if mas[i]=0 then mas[i]:=10;
  write(mas[i]:4);
 end;
readln
end.