Имеется часть катушки с автобусными билетами. Номер билета шестизначный. Составить программу, определяющую количество счастливых

Program sd;
uses crt;
var
a,b,c,x,s,y,z,r,p: integer;
Begin
clrscr;
Writeln('Введите  номер билета:');
readln(x);
s:=x div 100000;
r:=x div 10000 mod 10;
y:=x div 1000 mod 10;
c:=x div 100 mod 10;
a:=x mod 100 div  10;
b:=x mod 10;
z:=y+r+s;
p:=a+b+c;
if z=p then
begin
write('билет счастливый');
writeln('  ',z,' = ',p);
end
else
writeln('билет не счастливый   '  ,z,' <> ',p);
readln;
End.