Дано натуральное четырехзначное число n. Верно ли, что все четыре цифры числа различны

function IsDifferentNumbers(n : Integer) : Boolean;
var flag : Boolean;
    A : Array[1..4] of Integer;
    i, j : Integer;
begin
     flag := true;
 
     for i:= 1 to 4 do
     begin
          A[i] := n mod 10;
          n := n div 10;          
     end;
     
     for i := 1 to 4 do
         for j := i + 1 to 4 do
             if(A[i] = A[j]) then
                     begin
                          flag := false;
                          break;
                     end;
                     
     IsDifferentNumbers := flag;
end;
 
function FindMidl(a, b, c : Real) : Real;
begin
     if(a > b) then
          if(b > c) then
               FindMidl := b
          else
               FindMidl := c
     else
         if(a > c) then
               FindMidl := a
         else
               FindMidl := c;
end;
 
begin
     writeln(IsDifferentNumbers(1233));
     writeln(FindMidl(2.1, 3.5, 2.5))
end.

function FindMidl(a, b, c : Real) : Real;