Допишите программу(Prolog)

[Flashik66]

Добрый день. Прошу помощи так как в прологе полный 0.

Условие задачи: Нахождение в текстовом файле двух самых коротких строк

Поиск помог мне найти рабочий код. Однако это только часть кода. А полностью дописать под него программу у меня не получается. Прошу выручить..

min(Min1,Min2):-readln(S),min(S,S,Min1,Min2).
 
min(TempA,TempB,A,B):-
    readln(Str),!,update(TempA,TempB,Str,TempA1,TempB1),
    min(TempA1,TempB1,A,B).
min(A,B,A,B).
 
update(A,B,S,S,B):-
    str_len(S,LenS),str_len(A,LenA),LenS<LenA,!.
update(A,B,S,A,S):-
    str_len(S,LenS),str_len(B,LenB),LenS<LenB,!.
update(A,B,_,A,B).

[rrrFer]

самый тупой, но простой в реализации вариант.

Считываешь слова файла в список (для этого в некоторых прологах даже встроенный предикат есть, для остальных такой предикат можно найти).
Сортируешь список (опять же встроенный предикат)
Выбираешь 2 первых элемента так: [S1, S2|_]

Все. Задача решена.
Не проверял, но походу на SWI Prolog даже программу писать не надо - все решается одним тривиальным запросом.