Использование подпрограмм и модулей

procedure MinString(const s1, s2, s3: String);
var
    l1, l2, l3: Byte;
begin
    l1 := Length(s1); l2 := Length(s2); l3 := Length(s3);
    if (l1 < l2)
    then //s1 < s2
    begin
        if (l1 < l3)
        then //s1 < s2 && s1 < s3
            Write(s1)
        else //s1 < s2 && s1 >= s3
            if (l1 > l3)
            then //s1 < s2 && s1 > s3
                Write(s3)
            else //s1 < s2 && s1 == s3
                Write(s1, ' & ', s3);
    end
    else //s1 >= s2
    begin
        if (l1 > l2)
        then //s1 > s2
        begin
            if (l2 < l3)
            then //s1 > s2 && s2 < s3
                Write(s2)
            else //s1 > s2 && s2 >= s3
                if (l2 > l3)
                then //s1 > s2 && s2 > s3
                    Write(s3)
                else //s1 > s2 && s2 == s3
                    Write(s2, ' & ', s3);
        end
        else //s1 == s2
        begin
            if (l1 < l3)
            then //s1 == s2 && s1 < s3
                Write(s1, ' & ', s2)
            else //s1 == s2 && s1 >= s3
                if (l1 > l3)
                then //s1 == s2 && s1 > s3
                    Write(s3)
                else //s1 == s2 && s1 == s3
                    Write(s1, ' & ', s2, ' & ', s3);
        end;
    end;
end;
 
var
    s1, s2, s3: String;
begin
    Write('S1: '); ReadLn(s1);
    Write('S2: '); ReadLn(s2);
    Write('S3: '); ReadLn(s3);
    MinString(s1, s2, s3);
end.