Помогите пожалуйста объединить две задачи в одну

[rDelend]

Помогите пожалуйста объединить две задачи в одну

Дана задача: найти сумму четных цифр числа и составить новое число, поменяв в данном числе порядок цифр на обратный
При её решении разбил на две части:
найти сумму четных цифр числа:
Var s,n:integer;
Begin
write('Введите число: ');readln;
s:=0;
While n<>0 do
Begin
if n mod 10 mod 2 = 0 then s:=s+n mod 10;
n:=n div 10;
End;
if s<>0 then writeln('Сумма четных цифр: ',s)
else writeln('Нету четных цифр в числе');
readln;
End.

и поменять порядок цифр на обратный:
var
k, n: integer;

begin
write('Введите число ');
readln;
k := 0;
repeat
k := k * 10 + (N mod 10);
N := N div 10;
until n = 0;
write('После перестановки ');
Writeln(k);
end.

Помогите пожалуйста объединить это в одну программу, чтоб сразу, никак не получается чтоб вторая задача брала решение первой в переменную.

 

[rDelend]

Вопрос решил =) Стоило только немного поразмыслить =)

 

[rDelend]

Кому интересно вод код:
var s,n:longint;
begin
write ('‚ўҐ¤ЁвҐ **вга*«м*®Ґ зЁб«®: '); readln ;
s:=0;
repeat
if n mod 10 mod 2 = 0 then s:=s+n mod 10;
n:=n div 10;
until n=0;
repeat
write (s mod 10);
s:=s div 10;
until s=0;
writeln;
readln;
end.