Проблема с проверкой в модуле... Опции

[priboltik]

доброго времени суток!
Хотелось бы узнать, почему у меня проверка, котторая стоит в модуле не работает в основной программе..
в частности проверка на наличие файла на диске..

модуль:  MIKHAL.PAS ( 1.23 килобайт ) Кол-во скачиваний: 453

прога:  PROGRAM4.PAS ( 2.97 килобайт ) Кол-во скачиваний: 461

[volvo]

Нет, так не пойдет... Ты укажи строки, в которых программа работает неверно, а то там у тебя черт ногу сломит - ничего не разберешь...

[priboltik]

Нет, так не пойдет... Ты укажи строки, в которых программа работает неверно, а то там у тебя черт ногу сломит - ничего не разберешь...

скорее всего где-то здесь

Cifr[i] := Cifr[i] + 1;

и наверное здесь:

if filesize(f)=0 then main:=-3 {pustoy fail}
	else
	begin
	max:=cifr[0];
	for i := 0 to 9 do
	  if Cifr[i] > max then begin max := Cifr[i];
	Main := 0;
	ret := max;
	end;
        if max=cifr[0] then main:=-4; {cifirki koroche net}

если честно, не очень понимаю, как это здесь делается.. и для чего вообще нужен массив Cifr ....препод написал, а доступно объяснить ему было не судьба...