вот моя процедура печати

procedure Print (var M:mas; N:integer);
var i:integer;
begin
for i:=1 to N do
write (M[i],'; ');
writeln;
end;

как ее надо модифицировать чтобы числа массива, подлежащие обработке, при распечатке исходного массива отметить отличающимся цветом.

textcolor("номер цвета") - кажется,так.

А куда конкретно его нужно сунуть. Как это должно выглядеть.
И список номеров - цветов, если можно.

Сунуть - можно в любое место, всё, что идёт на вывод ниже этой строчки - будет окрашено. Цвета точно не помню, 0 вроде бы чёрный, 15 - белый.

прикольно смотрится спасибо (IMG:style_emoticons/default/biggrin.gif)

хотя еще есть один вопрос, а как сделать чтобы она именно выделяла элементы а не все подряд красила, чтобы была напечатана сторака а в ней лишь некоторые элементы былы окрашены.

Ну напишите условие,если элементы нужные,то один цвет,ненужные - другой.