Цвет для writeln - паскаль

[Silverstone]

У меня textcolor меняет цвет для всего выводимого. Как дописать так, чтобы у каждого writeln был задан свой цвет?

[Zer0]

Единственный вариант - перед каждым writeln менять цвет

[Silverstone]

я так и понял уже.
правда тут баг один:

cur:=mas[i].head;
if mas[i].head<>nil then
while cur<>nil do
begin
write(cur^.time,' ');
cur:=cur^.next;
end
else
write('список пуст');

если перед этим writeln прописать textcolor, то содержимое "краситься", но оно выводится постоянно.
т.е список не пуст а строчка подписывается

[s-andriano]

Сообщение от Silverstone

я так и понял уже.
правда тут баг один:

если перед этим writeln прописать textcolor, то содержимое "краситься", но оно выводится постоянно.
т.е список не пуст а строчка подписывается

Можно то же самое, только по-русски?
1. Что требуется?
2. Что вместо этого происходит?
3. Чем первое отличается от второго?

[Stilet]

но оно выводится постоянно.

Ну правильно. Покрасил строку - возвращай настройки цвета в исходное.
В конце используя textcolor устанавливай цвет, который по умолчанию.