Информатика,Паскаль,помогите пожалуйста! Нужен код полностью.

1я задачка:

var  

  N, sum1, sum2, res: integer;

begin

 readln(N);  

 sum1 := N mod 10;

 N := N div 10;  

 while N gt; 0 do begin

   if N div 10 = 0 then

     sum1 := sum1 + N

   else

     sum2 := sum2 + N mod 10;  

   N := N div 10;

 end;  

 writeln(max(sum1,sum2),min(sum1,sum2));

end.