{
    Print Hello <name> for each name in comamnd line
    that starts with character 'm'
}

PROGRAM CharacterComparing;

VAR
    I : Integer;

BEGIN
    FOR I := 1 TO ParamCount DO
    BEGIN
        IF ParamStr(I)[1] = 'S' THEN
            WriteLn('Hello ', ParamStr(I));
    END;
END.