Расшифровать ребус (4 * Огонь = Пожар)

var
  o, g, n, j, p, z, a, r, max: integer;
  maxp, maxo, maxz, maxa, maxr: integer;
 
begin
  max := 0;
  for o := 1 to 9 do
    for g := 0 to 9 do
      for n := 0 to 9 do
        for j := 0 to 9 do
          for p := 1 to 9 do
            for z := 0 to 9 do
              for a := 0 to 9 do
                for r := 0 to 9 do
                  if (o <> g) and (o <> n) and (o <> j) and (o <> p) and (o <> z) and (o <> a) and (o <> r) and
                     (g <> n) and (g <> j) and (g <> p) and (g <> z) and (g <> a) and (g <> r) and
                     (n <> j) and (n <> p) and (n <> z) and (n <> a) and (n <> r) and
                     (j <> p) and (j <> z) and (j <> a) and (j <> r) and
                     (p <> z) and (p <> a) and (p <> r) and
                     (z <> a) and (z <> r) and
                     (a <> r) and
                     (4 * (o * 10000 + g * 1000 + o * 100 + n * 10 + j) = p * 10000 + o * 1000 + z * 100 + a * 10 + r) then
                  begin
                    WriteLn('4 * ', o, g, o, n, j, ' = ', p, o, z, a, r);
                    if p + o  + z  + a  + r > max then
                    begin
                      max := p  + o  + z + a  + r;
                      maxp := p; maxo := o; maxz := z;
                      maxa := a; maxr := r
                    end;
                  end;
  WriteLn('Значения цифр, при которых сумма цифр в результате наибольшая:');
  WriteLn(max);
  WriteLn('П = ', maxp, '; О = ', maxo, '; Ж = ', maxz, '; А = ', maxa, '; Р = ', maxr);
  ReadLn
end.