Mine

Program szamjegyek_osszege;
Uses CRT;
Var
   k, k2, szamjegy, szamjegy2 : byte;
   szam : integer;
   ertek : string;
   ch, ch2 : char;
   kod, kod2 : integer;
Const
     osszeg : integer = 0;
     osszeg2 : integer = 0;
     szoveg1 = 'A paros sorszamu szamjegyek osszege: ' ;
     szoveg2 = 'A paratlan sorszamu szamjegyek osszege: ' ;
Begin
     ClrScr;
     WriteLn('Kerem a szamot:');
     ReadLn(szam);
     str(szam, ertek);
     For k := 1 + ord(szam < 0) to length(ertek) do
            Begin
                 ch := ertek[k];
                 val(ch, szamjegy, kod);
                 osszeg := osszeg + szamjegy;
                 k := k + 1;
            End;
     For k2 := 2 + ord(szam < 0) to length(ertek) do
            Begin
                 ch2 := ertek[k2];
                 val(ch2, szamjegy2, kod2);
                 osszeg2 := osszeg2 + szamjegy2;
                 k2 := k2 + 1;
            End;
     If length(ertek) mod 2 = 0 then
        Begin
             WriteLn(szoveg1, osszeg2);
             WriteLn(szoveg2, osszeg);
        End
     Else
         Begin
              WriteLn(szoveg1, osszeg);
              WriteLn(szoveg2, osszeg2);
         End;
     ReadLn;
End.