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

[vishnya454]

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

2. Реализовать в виде модуля набор подпрограмм для выполнения операций над квадратными матрицами:
-сложение двух матриц
-умножение одной матрицы на другую
-нахождение транспонированной матрицы
Матрицу описать следующим образом:
Const NMax = 10
Type Matrica = Array [1..NMax, 1..Nmax] Of real;

[hiho]

program sr_text;
uses crt;
var
   f : text;
   str : string; //Строка с текстом
   k : integer; //Счетчик колличества букв
   words : integer; //Счетчик колличества слов

procedure Count (str : string);
var
   i : byte;
begin
     Inc(words); // Считать, что в строке есть хотя бы одно слово
     for i := 1 to Length(str) do
         if str[i] <> ' ' then Inc(k) else Inc(words);
end;

begin
     k := 0;
     words := 0;
     clrscr;
     Assign(f,'C:\text.txt');
     {$I-}
     Reset(f);
     if IoResult <> 0 then begin 
          writeln('Нет файла! Нажмите любую клавишу для выхода');
          readln;
     end;
     {$I+}
     while not EOF(f) do begin
           readln(f,str);
           Count(str);
           if words <> 0 then writeln('Sr: ',k/words:1:4) else writeln('Ошибка');
     end;
     readln;
end.

По первому набросал, что-то типо вот такого. Работать будет только если строка содержит хотя бы одно слово и начинаеться не с пробела. У меня вроде работает.