Файл f заполнить K случайными действительными числами. Найти последний элемент файла f - Pascal

Помогите пожалуйста решить Файл f заповнить K случайными действительными числами. Найти последний элемент файла f

Листинг программы

f: file of real;

Объяснение кода листинга программы

Создается объект файла f типа file of real, который представляет собой файл для записи действительных чисел.
Открывается файл f для записи с помощью функции OpenFile(f, 'wb').
Выполняется цикл K раз.
Внутри цикла генерируется случайное число K с помощью функции Random.
Сгенерированное случайное число записывается в файл f с помощью оператора Write.
После завершения цикла файл f закрывается с помощью функции CloseFile(f).
Выводится сообщение о том, что файл успешно записан.