[РЕШЕНО] возвращаемое значение функции может быть неопределенным

[Necker]

Кто может сказать что не так с функцией и что надо сделать, чтоб такая ошибка не появлялась ?
[Warning] Project2.dpr(36): Return value of function 'CalcWords' might be undefined

	
	

			
				program Project2;

{$APPTYPE CONSOLE}


uses
  SysUtils;
const
  fn = 'input.txt';
var
  s:String;
Function CalcWords(s: String): integer;
var
  f: Text;
  i: Integer;
  fg: Boolean;//флаг слова
  count: Integer;   //счетчик
begin
  Assign(f,fn);
  Reset(f);
  count:=0;
  while not EoF(f) do
  begin
    fg:=false; // сброс флага
    Readln(f, s); //считка файла по строчно и запись в "s"
    for i:=1 to Length(s) do
      if s[i]<>' ' then
        begin
        if fg=false then Inc(count);//увеличение счетчика
        fg:=true;
        end
      else fg:=false;// выход из слова - сброс флага
        end;
  writeln('file have a words:', count);
  readln;
end;
Begin
  CalcWords(s);
end.
			
		

Решение в следующем сообщении.

[Вадим Мошев]

Это не ошибка, это предупреждение. Здесь написано, что возвращаемое значение может оказаться не определённым. Именно так у вас и произойдёт, таr как вы не возвращаете никакого значения. Вы должны возвращать значение посредством одной из следующих конструкций:

result:=<значение функции>

или

<имя функции>:=<значение функции>

Похоже, что вам нужно написать так:

result:=count;

[Necker]

Спасибо за помощь)