Помогите пожалуйста с решением задач в Turbo Prolog

[V1ktor1]

1) Создать программу, которая читает любой символ из заданного файла и выводит его на экран.
domains
file=myfile
predicates
read_in_loop
goal
write("Эта программа читает любой символ из заданного файла и выводит его на экран\n"),
openread(myfile,"myfile.f"),
readdevice(myfile),
closefile(myfile),
writedevice(screen),
write("\чтение из файла myfile.f произведено\n").
clauses
read_in_loop:-readchar(X), X<> '#',!,write(X),read_in_loop.
Не пойму, что надо делать после запуска (программа после запуска показывает на экране след. текст:
Эта программа читает любой символ из заданного файла и выводит его на экран
чтение из файла myfile.f произведено

Press the SPACE bar)
2) Создать программу, которая ждет нажатия клавиши, а после нажатия записывает значение этого символа в файл 2.txt.
domains
file=myfile
predicates
read_in_loop
goal
write("Эта программа читает символ с клавиатуры\n",
"(без нажатия клавиши ввод) и записывает",
"его в файл 2.txt Для завершения работы",
"нажмите клавишу #\n"),
openwrite(myfile,"2.txt"),
writedevice(myfile),
not(read_in_loop),
closefile(myfile),
writedevice(screen),
write("\запись в файл 2.txt произведена\n").
clauses
read_in_loop:-readchar(X), X<> '#',!,write(X),read_in_loop.
Не пойму, что надо делать после запуска (программа после запуска показывает на экране след. текст:
Эта программа читает символ с клавиатуры
(без нажатия клавиши ввод) и записывает его в файл 2.txt
Для завершения работы нажмите клавишу #
). И ни одна клавиша не работает
3) Создать программу, которая создаёт файл 3.txt и записывает введенную строку в этот файл. При следующем запуске новую строку программа дописывает к файлу.

[rrrFer]

goal
write("Эта программа читает любой символ из заданного файла и выводит его на экран\n"),
openread(myfile,"myfile.f"), % открыл файл
readdevice(myfile), % установил файл в качестве устройства ввода
                            % (любой предикат ввода теперь берет информацию с файла, а не с клавиатуры)
closefile(myfile), % закрыл файл
writedevice(screen), % установил устройством вывода экран (он и так им был)
write("\чтение из файла myfile.f произведено\n"). % вывел строку (на экран).

Ну а где попытки ввода данных то? - по заданию требуется считать символ с файла.

Вторая программа вроде бы правильная.
А с третьей что?

[V1ktor1]

rrrFer,
Спасибо большое за комментарий (кажется догадался).
А можете подсказать, что надо дописать, чтобы при следующем запуске новую строку программа дописывала к файлу?
Буду очень признателен))

[V1ktor1]

rrrFer,
Огромное СПАСИБО за помощь))
С записью с новой строки я уже разобрался, так что можно не комментировать))

[ver4105]

1. Создать программу, аналогичную программе телефонный справочник на обработку команд чтения и записи.
2. Создать программу, которая читает любой символ из заданного файла и выводит его на экран.
3. Создать программу, которая ждет нажатия клавиши, а после нажатия записывает значение этого символа в файл 2.txt.
4. Создать программу, которая создаёт файл 3.txt и записывает введенную строку в этот файл. При следующем запуске новую строку программа дописывает к файлу.
5. Создать файл на диске с именами и номерами зачеток студентов, которые учатся с вами. После этого, написать программу, которая считывает данные из файла и выводит их на экран.