Работа с файлами, Задача. Замена буквы звёздочкой Опции

[BoB@N]

Задача:
/В каждом из слов текстового файла замените последнюю букву звёздочкой/

1)Как сделать так,чтобы прога подсчитывала кол-во символов в слове?

[volvo]

Как применить к исходнику выше

const
  delimiter = [#32, ',', '.', '!', ':'];
type
  wrd_info = record
    start, len: byte;
  end;

function get_words(s: string;
         var words: array of wrd_info): integer;
var
  count: integer;

  i, curr_len: byte;

begin
  count := -1; i := 1;
  while i <= length(s) do begin

    while (s[i] in delimiter) and (i <= length(s)) do inc(i);

    curr_len := 0;
    while not (s[i] in delimiter) and (i <= length(s)) do begin
      inc(i); inc(curr_len);
    end;

    if curr_len > 0 then begin
      inc(count);
      with words[count] do begin
        start := i - curr_len;
        len := curr_len
      end;
    end;

  end;
  get_words := count + 1;
end;

const
  max_word = 255;
var
  words: array[1 .. max_word] of wrd_info;
  s: string;
  i, n: integer;

  f: text;

begin
  assign(f, 'text.txt');
  reset(f);

  while not seekeof(f) do begin
    readln(f, s);
    n := get_words(s, words);
    for i := 1 to n do
      s[ words[i].start + words[i].len - 1 ] := '*';
    writeln(s); { Можно записать в другой файл ... }
  end;

  close(f)
end.

Проще, не правда ли?