Помогите в Делфи

[Negaiyo]

Ребята помогите, в общем дали мне задачу, Задано натуральное двухзначное число. Составить программу, которая даст характеристику числа по следующему плану:

* сумма цифр числа;

* число чётное (нечётное)
Саму задачу вроде решил, но у меня ругается. В коде выдает ошибку во втором коде говорит undeclared indetifier "n"

var
n,p:integer;
begin
n:=StrToInt(Edit1.Text);
if n>99 then
ShowMessage('Введите двухзначное число')
else
p:=(n div 10)+(n mod 10);
Label1.Caption:=(('Сумма цифр=')+IntToStr(p));
end;
begin
if (n mod 2)=0
then
Label1.Caption:=('Четное')
else
Label1.Caption:=('Нечетное');
end;

end.

[Аватар]

во втором коде

что бы это значило? Убери лишние end и begin. А вот после первого else операторные скобки нужны. Вывод чет/нечет в другой лейбл сделай

[Negaiyo]

Спасибо