Записать в новый файл соотвествующие символам ASCII коды исходного - Turbo Pascal

задан файл,содержащий произвольное кол-во строк,записать в новый файл соотвествующие символам ASCII коды

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

...
While not EOF(f0) do
Begin
  Readln(f0,St);
  For i:=1 to Length(S) do Write(f1,Ord(S[i]));
End;
...

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

В данном коде происходит следующее:

Создается два файла - f0 и f1.
В цикле while считывается символ из файла f0 с помощью функции Readln.
В цикле for перебираются символы строки S.
Для каждого символа вызывается функция Ord, которая возвращает ASCII код символа.
Полученный ASCII код записывается в файл f1.
Цикл while продолжается до тех пор, пока не будет достигнут конец файла f0.