[Luska]

Дано натуральное число N. Определить цифру, которая встречается наибольшее количество раз в этом числе.

Заранее, огромное спасибо!!

[Holy]

Тут намеренно допущена ошибка, дабы стимулировать студента проанализировать код.

Код:

const
  Numbers = '0123456789';
var
  i, j: Integer;
  MaxCount: Integer;
  Count: Integer;
  FindChar: Char;
begin
  MaxCount := 0;
  FindChar := #0;

  for i := 1 to Length(Numbers) do
  begin
    Count := 0;

    for j := 1 to Length(Edit1.Text) do
      if Numbers[i] = Edit1.Text[j] then
        Inc(Count);

    if Count > MaxCount then
    begin
      FindChar := Numbers[i];
    end;
  end;

  ShowMessage(FindChar);
end;