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

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

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

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