[Willow]

Есть версия, что твой способ подсчета цикла не слишком быстрый.
Если хочешь так хитро считать, то выводи прямым обращением к видео памяти. Хотя как по мне лучше определить время за которое скажем выполнится 100000 записей в порт. Чем кол-во записей за 1 сек.

P.S.
Ты засеки время выполнения следующего фрагмента

for i:=1 to 100000 do WriteLn('string');

Я не проверял, лень перегружаться под ДОС, но на вскидку думаю сек 10. Это нормально. Так работает вывод в ДОС, да и в консоле Винды тоже