подсчитать количество символов слов и предложений

[nev]

Помогите решить задачу. Подсчитать количество символов слов и предложений в текстовом файле.

[Carbon]

procedure Counter(var symbols,words,sentences:integer);

var f:text;
     letter:char;
     end_of_word, end_of_sentence:boolean;

begin

symbols:=0;
words:=0;
sentences:=0;
end_of_word:=false;
end_of_sentence:=false;

assign(f,'file.txt');
reset(f);

while not eof(f) do
begin

  Read(f,letter);
  symbols:=symbols+1;

  if letter in [' ' , '.' , ',' , ';' , ':' , '-', #10, #13, #9] then
  begin

    if not end_of_word then
      words:=words+1;

    end_of_word:=true;

    if not end_of_sentence and (letter='.') then
    begin

      end_of_sentence:=true;
      sentences:=sentences+1

    end;

  end

  else

  begin

    end_of_word:=false;
    end_of_sentence=false

  end;

end;

if not end_of_word then
  words:=words+1;

if not end_of_sentence then
  sentence:=sentences+1;

close(f);
end;

[nev]

Спасибо а как это в Delphi сделать

[Carbon]

{$I-}
procedure Counter(var symbols,words,sentences:integer);

var f:textfile;
     letter:char;
     end_of_word, end_of_sentence:boolean;

begin

symbols:=0;
words:=0;
sentences:=0;
end_of_word:=false;
end_of_sentence:=false;

assignfile(f,'file.txt');
reset(f);

if IOResult<>0 then ShowMessage('Файла нет') else
begin

while not eof(f) do
begin

  Read(f,letter);
  symbols:=symbols+1;

  if letter in [' ' , '.' , ',' , ';' , ':' , '-', #10, #13, #9] then
  begin

    if not end_of_word then
      words:=words+1;

    end_of_word:=true;

    if not end_of_sentence and (letter='.') then
    begin

      end_of_sentence:=true;
      sentences:=sentences+1

    end;

  end

  else

  begin

    end_of_word:=false;
    end_of_sentence=false

  end;

end;

if not end_of_word then
  words:=words+1;

if not end_of_sentence then
  sentence:=sentences+1;

end;

closefile(f);
end;

procedure TForm1.Button1Click(Sender:TObject);
var symbs,words,sents:integer;
begin
  Counter(symbs,words,sents);
  Label1.Caption:='Символов '+IntToStr(symbs);
  Label2.Caption:='Слов '+IntToStr(words);
  Label3.Caption:='Предложений '+IntToStr(sents);
end;

[nev]

Спасибо ты мне очень помог