Скопировать текст из файла в файл - Pascal

Необходимо скопировать из 1 файла в другой не используя строк (String). Там через Char как-то. Буду благодарен

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

  repeat
    BlockRead(f, c, SizeOf(c), r);
    BlockWrite(g, c, r, w);
  until r<SizeOf(c);

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

Создается цикл с использованием оператора repeat.
Выполняется чтение блока данных из файла с помощью функции BlockRead. Название файла чтения: f, название переменной для хранения данных: c, размер блока данных: SizeOf(c), количество фактически прочитанных байт: r.
Записывается прочитанный блок данных в другой файл с помощью функции BlockWrite. Название файла записи: g, данные для записи: c, количество фактически записанных байт: r, результат операции записи: w.
Повторение цикла происходит до тех пор, пока количество фактически прочитанных байт r меньше размера блока данных SizeOf(c).