var fi, fo : int

open : fi, "DATA31.txt", get
open : fo, "OUT31.txt", put

var lines : string
var numbers : array 1 .. 5 of int
var syl : string := "24682"
var current, high, lineno, original : int := 0


fcn wordCount (word : string) : int
    var count := 0
    for s : 1 .. length (word)
        if word (s) = " " or word (s) = "-" then
            count += 1
        end if
    end for
    result count + 1
end wordCount

proc errors
    for x : 1 .. 5
        numbers (x) := strint (syl (x)) - numbers (x)
        if numbers (x) not= 0 then
            current := abs (numbers (x))
            if current > high then
                original := numbers (x)
                high := current
                lineno := x
            end if
        end if
    end for
end errors

for s : 1 .. 5
    for x : 1 .. 5
        get : fi, lines : *
        numbers (x) := wordCount (lines)
    end for
    errors
    if abs (original) = original then
        put : fo, "LINE ", lineno, " - ", original, " SYLLABLE(S) TOO FEW"
    else
        put : fo, "LINE ", lineno, " - ", abs (original), " SYLLABLE(S) TOO MANY"
    end if
    lineno := 0
    original := 0
    current := 0
    high := 0
end for
close (fi)
close (fo)