Вывод содержимого каталога - Turbo Pascal

Добрый день! Не подскажите, как будет выглядеть код вывода содержимого каталога?

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

if DosError=0 then
 
until DosError<>0;

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

Переменная DosError инициализируется значением 0.
Затем происходит проверка условия DosError=0.
Если условие истинно, то цикл while будет выполняться до тех пор, пока значение DosError не станет отличным от 0.
Если условие ложно, то цикл while не выполняется ни разу.
В конце цикла while значение переменной DosError сравнивается с 0.
Если DosError остается равным 0, то цикл while повторяется.
Если DosError не равно 0, то цикл while прекращается.