С клавиатуры вводится шестизначный номер трамвайного билета Определить, является ли билет счастливым

{p:=0; q:=0;}
for i:=2 downto 0 do begin
  Inc(p,n mod 10); n:=n div 10;
end;
for i:=2 downto 0 do begin
  Inc(q,n mod 10); n:=n div 10;
end;
WriteLn(p=q);

var
  s: string;
  t, i: integer; //сумма, итерация
 
function number(x: string): boolean; //все цифры?
var
  i: integer;
begin
  number := true;
  for i := 1 to 6 do if (x[i] < '0') or (x[i] > '9') then begin number := false; break end;
end;
 
function digit(x: char): integer; //перевод '1' в 1
begin digit := Ord(x) - Ord('0')end;
 
begin
  repeat
    t := 0;
    Writeln('------------------');
    Write('Введите шестизначное число или -1 для выхода '); Readln(s);
    if (Length(s) = 6) and (number(s)) then begin
      for i := 1 to 3 do t := t + digit(s[i]) - digit(s[7 - i]);
      // добавляем левую часть и отнимаем правую
      if t <> 0 then Write('НЕ ');
      Writeln('СЧАСТЛИВОЕ')
    end
  until s = '-1'
end.

var
  t, j, i: integer; //сумма, текущее, итерация
 
begin
    t := 0;
    Writeln('------------------');
    for i := 1 to 6 do
    begin
      repeat
        Write('Введите однозначное число от 0..9 #', i, ' = '); Readln(j);
      until (j >= 0) and (j < 10);
      
      if i < 4 then Inc(t, j) else Dec(t, j);
      // добавляем левую часть и отнимаем правую
    end;
    if t <> 0 then Write('НЕ ');
    Writeln('СЧАСТЛИВОЕ')
end.

{s:=0;}
for i:=2 downto 0 do begin
  Inc(s,n mod 10); n:=n div 10;
end;
for i:=2 downto 0 do begin
  Dec(s,n mod 10); n:=n div 10;
end;
WriteLn(s=0);

{s:=0;}
for i:=5 downto 0 do begin
  if Odd(i) then Inc(s,n mod 10) else Dec(s,n mod 10);
  n:=n div 10;
end;
WriteLn(s=0);