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

[BoB@N]

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

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

[BoB@N]

klem4, смотри:
Вот пусть такой простенький первоначальный исходник с надписью в текстовом файле:
“Turbo Pascal Forever”

Код

uses crt;
var
  f: text;
  l: string;

begin
clrscr;
  assign(f, 'd:\text.txt');
  reset(f);
  Read(f,l);
  Writeln(l);
readkey;
end.

Вот пример твоего метода:

Код

const

  limits = [#0..#32,'.',',',':',';','!','?','"'];
type

  TWords = array[1..40] of string;

var
  text : string;
  words : TWords;

function GetWords(s : string; var w : TWords) : byte;
var
  i,back,n : byte;
begin
  i := 1;
  n := 0;
  while(i<=length(s)) do begin
     while(i<=length(s)) and (s[i] in limits) do
      inc(i);
     if i<=length(s) then begin
        back := i;
        while(i<=length(s)) and not(s[i] in limits) do
         inc(i);
        inc(n);
        w[n] := copy(s, back, i-back);
     end;
  end;

  GetWords := n;
end;

Как его применить к данной проге?