[Black Raider]

Ошибки :
вы используете переменные в процедуре COL которые в ней не описаны
описать как глобальные:

Код:

Csr: real;
  Cn: real;

несовпадение типов:
дописать round

Код:

Cmin:=round(Cn)

Код:

jl:=round(j*k+jj);

это что касается ошибок.