Valaki tud segíteni? Fontoos

Parancsot sehogy. Programot, függvényt, eljárást esetleg :).

Kell két ciklus amit egymásba kell ágyazni, a külső ciklus a sorok számáért a belső a sorban levő karakterek számáért legyen felelős. Ezen felül az első cikluson belül még mondjuk egy if-el nézed, hogy melyik sort írja épp ki és ha kell a textcolorral színezed azt. A sor színezése után a színt vissza kell állítani.

Vagy lehet így is :D

Program kiír;

uses crt;

begin

TextColor(1);

writeln('***************');

TextColor(7);

writeln('***************');

writeln('***************');

writeln('***************');

writeln('***************');

writeln('***************');

writeln('***************');

writeln('***************');

Textcolor(4);

writeln('***************');

Textcolor(2);

writeln('***************');

textcolor(7);

end.