Ребус. Сложить one + one- Pascal(Паскаль)

one
+one
_____
two

uses crt;
var o,n,e,t,w,k:byte;
    min,max:integer;
begin
clrscr;
k:=0;
min:=999;max:=0;
for o:=1 to 9 do
for n:=0 to 9 do
for e:=0 to 9 do
for t:=1 to 9 do
for w:=0 to 9 do
if (2*(100*o+10*n+e)=100*t+10*w+o)
and(o<>n)and(o<>e)and(o<>t)and(o<>w)
and(n<>e)and(n<>t)and(n<>w)
and(e<>t)and(e<>w)and(t<>w) then
 begin
  writeln(o,n,e,'+',o,n,e,'=',t,w,o);
  k:=k+1;
  if 100*t+10*w+o<min then min:=100*t+10*w+o
  else if 100*t+10*w+o>max then max:=100*t+10*w+o;
 end;
writeln('Всего ответов=',k);
writeln('Минимальный=',min);
writeln('Максимальный=',max);
readln
end.