Целочисленная арифметика и условный оператор

Program sd;
uses crt;
var
a,b,c,d,x,e,p,s,y,z,r: integer;
Begin
clrscr;
Writeln('Введите  двухзначное число:');
readln(x);
s:=x div 10;
r:=x mod 10;
x:=x div 10;
z:=r+s;
if  z>=10
then
begin
write('сумма чисел = двухзначное число')
end
else write('сумма чисел = однозначное чило')  ;
writeln(' = ',z);
readln;
End.

uses crt;
var x:integer;
begin
Write('Введите  двухзначное число:');
readln(x);
if length(inttostr(strtoint(inttostr(x)[1])+strtoint(inttostr(x)[2])))=2 then
write('сумма чисел = двухзначное число')
else
writeln('сумма чисел = однозначное чило');
writeln(' = ',strtoint(inttostr(x)[1])+strtoint(inttostr(x)[2]));
end.

uses crt;
var x,i,y:integer;
begin
y:=0;
Write('Введите число "а": ');
readln(x);
for i:=1 to length(inttostr(x)) do
y:=strtoint(inttostr(x)[i])+y;
if (x>y) then
 write('сумма цифр числа "а" меньше чем само число')
else if not(x=y)
 then
  write('сумма цифр числа "а" больше чем само число')
 else
  write('сумма цифр числа "а" равна числу');
write(' = ',y);
end.