Нужно составить блок схему с использованием счетчиков и/или флагов.
В целочисленном массиве A[N] каждый элемент заменить количеством единиц в его двоичном представлении.
Функции нужно не словами описывать, а решениями

Я вижу 16-ричную систему. Но тогда в подсчетах ошибка. 
В 16 системе А -10, В - 11 С - 12, D - 13, Е - 14 F - 15
D5 = 5*16^0 + D*16^1 = 5+13*16 = 213(в десятичной)
1A = 1*16^1 + A*16^0 = 16+10 = 26 (в десятичной)
BA = B*16^1 + A* 16^0 = 11*16+10 = 186
Если отнять эти числа в 10-й системе, то выходит 213 - 26 - 187.
Поэтому в задаче или у тебя в записи ошибка. Разность в 16-й системе, т.е количество сказаок равна не ВА, а ВВ, тогда все получится.
В*16^0+B*16^1 = 11 = 16*11 = 187
И тогда ответ - 16-ричная ситстема счисления.

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.