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

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

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