Определить, является ли заданное шестизначное число счастливым — Pascal(Паскаль)

program f;

label 1;

var
  p, i, code, n: longint;
  s: string;
  bb: boolean;

begin
1:
  write('Pi= ');
  readln(p);
  if p > 1000000 then
  begin
    writeln('ERROR: Pi < 999999');
    goto 1
  end;

  str(p, s);
  bb := false;
  n := 0;
  val(s[1], i, code);
  n := n + i;
  val(s[2], i, code);
  n := n + i;
  val(s[3], i, code);
  n := n + i;
  p := 0;
  val(s[4], i, code);
  p := p + i;
  val(s[5], i, code);
  p := p + i;
  val(s[6], i, code);
  p := p + i;

  if n = p then
    writeln('MAGICESKOE')
  else
    writeln('NE MAGICESKOE');
  readln;

end.