Требуется сделать 7 и 8 номера. Но решение 1-го номера, а

7)

program chislo;

var  

 m,s,k:integer;

begin

 writeln('Введите натуральное число m:');

 read(m);

 s:=0;

 k:=0;

 repeat  

   if m mod 2 =0 then  

     s:=s+1

   else  

     k:=k+1;

   m:=m div 10;

 until m=0;

 writeln('Четных чисел: ',s);

 writeln('Нечетных чисел: 3',k);

end.

8)

program chislo2;

var

 m, max :integer;

begin

 writeln('Введите естественное число:');

 read(m);

 max:=0;

 while mgt;0 do  

   begin

     if m mod 10 gt; max then  

       max:=m mod 10;

     m:= m div 10;

     end;

 writeln('Величайшая цифра: ',max);

end.