var sentence := ""
var spot := 0
var longest := ""
var removed := ""
var x := 0
var tally := 0
put "Please enter a sentence of two or more words"
get sentence : *
put " "
var sentence1 := sentence


loop
    exit when sentence1 = ""

    % Selects 1st word in current line
    loop
        put spot
        spot := spot + 1
        if length (sentence1) = spot then
            % removed := sentence1
            x := x + 1
        elsif sentence1 (spot) = " " then %selects characters up to first space
            removed := sentence1 (1 .. spot)
            x := x + 1
        end if
        exit when x = 1
    end loop


    % Removes 1st word
    % Stores word for future comparison
    sentence1 := sentence1 (spot + 1 .. *) %creates new sentence without 1st word
    if length (removed) > length (longest) then
        longest := removed
    elsif length (removed) = length (longest) then
        tally := tally + 1
    end if



    % Removes the spaces before the next word
    loop
        x := 0
        if sentence1 = "" then
            x := x + 1
        elsif sentence1 (1) = " " then
            sentence1 := sentence1 (2 .. *)
        end if
        exit when x = 1
        exit when sentence1 (1) not= " "
    end loop


    % Reset values
    spot := 0
    x := 0
    put removed
    put sentence1
    put " "
end loop


put "The removed word is ", longest
put "You have ", tally - 1, " words the same length"
put " "
put "The remaining sentence is ", sentence1