Условный оператор паскаль ABC помогите найти ошибку

Question

Условный оператор 
Дано двузначное число. Определить: 
 а)является ли сумма его цифр двузначным числом; 
 б)больше ли числа а сумма его цифр. 
 
Программа: 
 
Program aaaa; 
var x,y,n,z:integer; 
begin 
writeln('Введите число') 
readln(n); 
x:=n div 10; 
z:=n mod 10; 
z:=x+y; 
if (z>9) and (z<100) then writeln('Является'); 
else writeln ('Не является'); 
readln; 
end.

Елена Юрова · Accepted Answer

в строке z:=n mod 10; нужно вместо z написать y: 
y:=n mod 10;

Александр Файзулин · Answer

var N, A, S : Byte; 
begin 
Write('Введите двухзначное число N = '); ReadLn(N); 
Write('Введите число A = '); ReadLn(A); 
if Not(N in [10..99]) then begin WriteLn('Число не двухзначное! '); Halt; end; 
S := N mod 10 + N div 10; 
Write('Сумма цифр '); if S < 10 then Write('не '); WriteLn('является двузначным числом. '); 
Write('Сумма цифр '); if S <= A then Write('не '); WriteLn('больше числа ', A, '.'); 
end.