open input_file
open output_file

while (get-next-record) {
    rec_length = length(record)

    if (rec_length > 92) {
        Throw A Fit And Exit With An Error
    } else {
        record = " " x (92 - rec_length) . record ."crlf"
        write record to output_file
    }
}