%trace
domains
    file = input;output
predicates
    start
    readline
    %comp(string)
    search(integer)
    repeat
    end
    

goal
    clearwindow,
    makewindow(1,7,20,"My Window",0,0,25,80),
    start,
    end.
clauses
    start:-
        openread(input,"Q3I.TXT"),
        readdevice(input),
        readline,!,
        
        write("\n\nEnter the no::"),
        readdevice(keyboard),
        readint(No),
        readdevice(input),
        filepos(input,0,0),
        search(No).
                    
    readline:-
        not(eof(input)),
        readln(Line),
        str_len(Line,Len),
        nl,write(Line,"  ",Len),
        readline.
    readline.
    repeat.
        repeat:-
            repeat.
    search(No):-
        repeat,
        readln(Line),
        str_len(Line,Len),
        No=Len,
        openwrite(output,"Q3O.TXT"),
        writedevice(output),
        write(Line,"\n"),
        closefile(output).
    end:-
        write("\n\nplease check output in file Q3O.TXT").

Input file:

¦my name is hiral                                                         ¦
¦my brohter name is ravi  
¦my sister name is hemina                                                   ¦
¦i love my family  


Output

+-----------------------------------My Window----------------------------------+
¦                                                                              ¦
¦my name is hiral  16                                                          ¦
¦my brohter name is ravi  23                                                   ¦
¦my sister name is hemina  24                                                  ¦
¦i love my family  16                                                          ¦
¦                                                                              ¦
¦Enter the no::24                                                              ¦

 please check output in file Q3O.TXT


Output file:
my sister name is hemina