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

я паскаль давно изучал синтаксис не помню но алгаритм подскажу

переменная х, j, m, у;

ввести х;

пока x > 1

делать у = остаток от деления х на 10;

если остаток от деления у на 2 = 1;

то j = j+1;

иначе m = m + 1;

x=округлить х/10;

конец

вывести "четных цифр" m "не четных цифр" j;

конец