помогите исправить ошибку

[Spanchik]

Условие:Расшифровать ребус, где цифры заменили одинаковыми буквами. Найти также значение цифр, при котором сумма цифр в результате будет наибольшей:

ЗЕРНЕ
ЗЕРНЕ
+ ЗЕРНЕ
ЗЕРНЕ
= КОЛАС

Код программы:

Program z1;
uses crt;
var
z,e,r,n,k,o,l,a,s,max,l1:longint;
begin
clrscr;
max:=0;
for z:=1 to 2 do 
for e:=1 to 9 do 
if (z<>e) then 
for r:=0 to 9 do  if (z<>r) and (r<>e) then 
for n:=0 to 9 do  if (n<>z) and (n<>e) and (n<>r) then 
for k:=4 to 9 do if (k<>z) and (k<>e) and (k<>r) and (k<>n) then  
for o:=0 to 9 do  if (o<>z) and (o<>e) and (o<>r) and (o<>n) and (o<>k) then
for l:=0 to 9 do  if (l<>z) and (l<>e) and (l<>r) and (l<>n) and (l<>k) and (l<>o) then
for a:=0 to 9 do  if (a<>z) and (a<>e) and (a<>r) and (a<>n) and (a<>k) and (a<>o) and (a<>l) then
for s:=1 to 9 do  if (s<>z) and (s<>e) and (s<>r) and (s<>n) and (s<>k) and (s<>o) and (s<>l) and (s<>a) then 
if ((z*10000+e*1000+r*100+n*10+o)*4)=(k*10000+o*1000+l*100+a*10 +s) then
begin
writeln(z,e,r,n,o,'*4=',k,o,l,a,s);
if k+o+l+a+s>max then
begin
max:=k+o+l+a+s;
end; 
end;
writeln(max:k*10000+o*1000+l*100+a*10+s);
readkey;
end.

[Mad_Cat]

ЗЕРНЕ

или все таки ЗЕРНО ?

{
ЗЕРНО
+
ЗЕРНО
+
ЗЕРНО
+
ЗЕРНО
=========== 
КОЛАС
}
function AllDigiTsDif(Num: Integer): boolean;
var
  s: string;
  c: char;
begin
  AllDigiTsDif := false;
  str(Num, s);
  while s <> '' do 
  begin
    c := s[1];
    delete(s, 1, 1);
    if pos(c, s) <> 0 then exit; 
  end;
  AllDigiTsDif := true;
end;

function OurNum(Num1, num2: Integer): boolean;
var
  s1, s2: string;
  i:byte;
begin
  str(Num1, s1);str(Num2, s2);
  ournum:=false;
  for i:=1 to length(s1) do
  if (pos(s1[i],s2)<>0) and (i<>5) and (pos(s1[i],s2)<>2) then exit;
  ournum := s1[5] = s2[2];
end;

var
  i, res: Longint;
begin
  for i := 10234 to 24987 do
    if AllDigiTsDif(i) and OurNum(i, i * 4) and AllDigiTsDif(i * 4)  then writeln(i, '*4=', i * 4);
end.

10592*4=42368
10893*4=43572
10963*4=43852
13724*4=54896
14809*4=59236
15873*4=63492
18524*4=74096
19608*4=78432
20391*4=81564
21094*4=84376
21576*4=86304
23704*4=94816
23714*4=94856
23785*4=95140

[Serge_Bliznykov]

КОЛАС

а что за "КОЛАС"? Может быть, КОЛОС ?!

[Mad_Cat]

Может быть, КОЛОС ?!

{
ЗЕРНО
+
ЗЕРНО
+
ЗЕРНО
+
ЗЕРНО
=========== 
КОЛОС
}
function AllDigiTsDif(Num: Integer): boolean;
var
  s: string;
  c: char;
begin
  AllDigiTsDif := false;
  str(Num, s);
  while s <> '' do 
  begin
    c := s[1];
    delete(s, 1, 1);
    if pos(c, s) <> 0 then exit; 
  end;
  AllDigiTsDif := true;
end;

function AllDigiTsDif2(Num: Integer): boolean;
var
  s: string;
  c: char;
begin
  AllDigiTsDif2 := false;
  str(Num, s);
  if s[2] = s[4] then delete(s, 2, 1) else exit;
  while s <> '' do 
  begin
    c := s[1];
    delete(s, 1, 1);
    if pos(c, s) <> 0 then exit; 
  end;
  AllDigiTsDif2 := true;
end;

function OurNum(Num1, num2: Integer): boolean;
var
  s1, s2: string;
  i: byte;
begin
  str(Num1, s1);str(Num2, s2);
  ournum := false;
  for i := 1 to length(s1) do
    if (pos(s1[i], s2) <> 0) and (i <> 5) and (pos(s1[i], s2) <> 2) then exit;
  ournum := (s1[5] = s2[2]) and (s1[5] = s2[4]);
end;

var
  i, res: Longint;

begin
  for i := 10234 to 24987 do
    if AllDigiTsDif(i) and OurNum(i, i * 4) and AllDigiTsDif2(i * 4)  then writeln(i, '*4=', i * 4);
end.

10632*4=42528
10732*4=42928
15732*4=62928

[Serge_Bliznykov]

Mad_Cat, небольшое замечание: решение должно быть только одно:

Найти также значение цифр, при котором сумма цифр в результате будет наибольшей

[Mad_Cat]

решение должно быть только одно

Хотя я татарин и мне 50% скидка на знание морфологических оборотов русского языка, из моих знаний оного следует:

Найти также значение цифр, при котором сумма цифр в результате будет наибольшей

Наличие слова в цитате, выделенного жирным, подразумевает, что решений будет минимум 2
1- решение состоящей из каких-то цифр,при котором сумма цифр в результате не будет наибольшей
2- решение состоящей из каких-то цифр,при котором сумма цифр в результате будет наибольшей

ответы номер 1.1,1.2,1.3,я предложил, нахождение же ответа номер 2, я предоставляю ТС-у(ну допишет же он 2 строки кода)

[Serge_Bliznykov]

Наличие слова в цитате, выделенного жирным, подразумевает, что решений будет минимум 2

Убедили меня, согласен.

[Spanchik]

Это Беларуский