Кстати.
Если хотите пользоваться именно TextFile и.т.д то
либо ReWrite(myFile);
// эта процедура создаёт новый
пустой файл, а если файл уже существовал, то он будет стёрт.
либо Append(myFile); // эта процедура открывает существующий файл, устанавливает позицию записи на конец файла.
поэтому, как повелось со времён Turbo 3.0
Код:
text:='c:\Test.txt' ;
AssignFile(myFile,text);
{$I-} // вот такое волшебное слово,
// отключаем Exception при ошибке ввода-вывода
Append(myFile); // открываем файл для дописывания в конец
if IoResult <>0 then // проверяем, что открылся
{$I+} // а теперь включаем Exception при ошибке ввода-вывода
// поскольку всё равно ничего поделать не можем
ReWrite(myFile); // это ещё оператор if !!
WriteLn(myFile,Abc[a]+Abc[b]); // пишем
CloseFile(myFile);// закрываем
но открытие и закрытие файла лучше делать вне цикла, а внутри цикла делать только WriteLN