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

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

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

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