Написание программы игры "Угадай число"

Uses crt;
Var Number, Number_inp, i, j, k, sec, tru, del1, del2 : integer;
    Correct, Win : boolean;
Const tries = 6;
begin
  repeat
  readln (Number); correct := true;
    if (number mod 10 = number div 100) or
    ((number div 10) mod 10 = number div 100) or
    ((number div 10) mod 10 = number mod 10)
    then correct := false;
  until (Number >= 100) and (Number <= 999) and (correct);
clrscr;
  for i := 1 to tries do begin
  sec := 0; tru := 0;
  WriteLn ('Enter Number (100 - 999)');
    repeat
    readln (Number_inp);
    until (number_inp >= 100) and (Number_inp <= 999);
  del1 := 1;
    for j := 1 to 3 do begin
    del2 := 1;
      for k := 1 to 3 do begin
      if (((number div del1) mod 10) = ((number_inp div del2) mod 10)) and (del1 = del2) then
        begin
        inc (sec); inc (tru);
        end;
      if (((number div del1) mod 10) = ((number_inp div del2) mod 10)) and (del1 <> del2) then inc (tru);
      del2 := del2 * 10;
      end;
    del1 := del1 * 10;
    end;
  writeln ('You entered: ', Number_inp, ' . In sequence : ', sec, ' Right: ', tru);
    if (number = number_inp) then begin
    Writeln ('You win!');
    win := true;
    break;
    end;
  end;
if not win then writeln ('You lost!');
  gotoxy
readln;
end.