С клавиатуры вводится длинное число, не менее 50 цифр. Определить сумму цифр данного числа . Pascal

я паскаль давно изучал синтаксис не помню но алгаритм подскажу переменная х,j,m,у; ввести х; пока x > 1 делать у =остаток от деления х на 10; если остаток от деления у на 2 = 1; то j = j+1; иначе m = m + 1; x=округлить х/10; конец вывести "четных цифр" m "не четных цифр" j; конец