Дан текстовый файл, содержащий некий текст. Текст разбит на несколько строк длиной не более 255 символов. Слова в этом тексте разделены пробелами, знаки препинания отсутствуют. Определить Среднее количество символов в слове — Pascal(Паскаль)

uses crt;
var f:text;
    i,kpr:byte;
    nf,s,s1:string;
    ksm,ksl:longint;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}//пробуем открыть файл для чтения
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
ksm:=0;//общее количество символов в словах
ksl:=0;//количество слов
while not eof(f) do
 begin
  readln(f,s);//читаем строку
  kpr:=0;//пробелы
  for i:=1 to length(s) do
   begin
    //если не пробел а перед ним пробел или это первый символ, слово
    if((s[i]<>' ')and((s[i-1]=' ')or(i=1)))then inc(ksl);
    if s[i]=' 'then inc(kpr);//считаем пробелы
   end;
  ksm:=ksm+length(s)-kpr;//прибавляем длину строки без пробелов
 end;
close(f);
writeln('Всего символов в словах=',ksm);
writeln('Всего слов в файле=',ksl);
writeln('Среднее количество символов в слове=',round(ksm/ksl));
readln
end.