10)Из текстового файла удалить пустые строки

domains

file=df;tf

predicates

read_write

del_empty_lines(file,file)

goal

clearwindow,

read_write.

clauses

del_empty_lines(df,tf):-eof(df).

del_empty_lines(df,tf):-not(eof(df)),readln(Str),

frontstr(1,Str,Ch,P),Ch<>"\26",

write(Str,"\13\10"),del_empty_lines(df,tf).

del_empty_lines(df,tf):-not(eof(df)),readln(Str),

frontstr(1,Str,Ch,P),Ch="\26",

del_empty_lines(df,tf).

read_write:-write("Input name file:"),nl,

readln(F1),

write("Input name new file:"),nl,

readln(F2),

openread(df,F1),

openwrite(tf,F2),

readdevice(df),

writedevice(tf),

del_empty_lines(df,tf),

closefile(df),

closefile(tf),

write("Old file (",F1,"):"),nl,

file_str(F1,Str2),

write(Str2),nl,nl,

write("New file (",F2,"):"),nl,

file_str(F2,Str3),

write(Str3).