Создать функцию, которая для двух данных чисел определяет в каком числе произвольных чисел больше - Turbo Pascal

function DiffNumb(x: LongInt): Byte;
var
    Result, temp: Byte;
    s: Set Of 0..9;
begin
    s := []; Result := 0; x := Abs(x);
    repeat
        temp := x mod 10;
        x := x div 10;
        if Not(temp in s)
        then
            Inc(Result);
        Include(s, temp);
    until (x = 0);
    DiffNumb := Result;
end;
 
function Compare(const x, y: LongInt; var z: LongInt): Boolean;
var
    Result: Boolean;
    xx, yy: Byte;
begin
    xx := DiffNumb(x); yy := DiffNumb(y);
    Result := (xx <> yy);
    if (Result)
    then
    begin
        if (xx > yy)
        then
            z := x
        else
            z := y;
    end;
    Compare := Result;
end;
 
var
    x, y, z: LongInt;
begin
    Write('Input x: '); ReadLn(x);
    Write('Input y: '); ReadLn(y);
    if (Compare(x, y, z))
    then
    begin
        if (z = x)
        then
            WriteLn('First')
        else
            WriteLn('Second');
    end
    else
        WriteLn('Same');
end.