Warezhunter@, Блин, делать то тут нечего.
1) Перед вызовом PrintMass опредлеляешь столбец, удовлетворяющий твоим условиям, заносим полученное значение в FindColumn, скажем.
2) Меняешь процедуру Proverka1 на определение согласных
3) чуток меняешь PrintMass
Код:
if Proverka1(z[i,j]) and (J=FindColumn) then
begin
TextColor(10);
Inc(kol)
end
else TextColor(7);
ВСЕ.
З.Ы. Если не секрет, где так от программирования народ отгоняют?