transform string to array of words

uses crt;
type
    textOfWords = array[1..26] of string;
var
    w: string;
    result: textOfWords;
    s: string;
    n,i: integer;

procedure toStandart();
begin

    // Заменяет все запятые в тексте на пробелы
    while pos(',',s)<>0 do
        s[pos(',',s)]:=' ';

    // Заменяет все точки в тексте на пробелы
    while pos('.',s)<>0 do
        s[pos('.',s)]:=' ';

    // Проверка на наличие пробела в конце и если его нет, то добавляет его
    if s[length(s)]<>' ' then
        s:=s+' ';

    // Проверка на количество пробелов между словами
    while pos('  ',s)<>0 do
        delete(s,pos('  ',s),1);

end;

begin
    readln(s);
    n:=1;

    toStandart;

    // Разделение строки на массив слов
    while (pos(' ',s)<>0) and (length(s)<>1) do
    begin
        w:=copy(s,1,pos(' ',s));
        delete(w,pos(' ',w),1);
        result[n]:=w;
        n:=n+1;
        delete(s,1,pos(' ',s));
    end;
    n:=n-1;

    // Вывод результата на экран
    for i:=1 to n do
        writeln(result[i],' ',length(result[i]));
end.