Проверяет, достигли ли мы конца файла с ключом ключ

Пример:

алг
нач
цел
Ключ
лит имяФайла
имяФайла := "t1.txt"
создать файл(имяФайла)
открыть на чтение(имяФайла, Ключ)
цел n
n := 0
вещ таб a[1:100]
вещ buf
нц пока не конец файла(Ключ)
n := n+1
ф_ввод Ключ, buf
вывод buf, нс
a[n] := buf
кц