Текстовой файл в Паскале

[YaDenis]

Нужно написать программу в Паскале:

Создать текстовый файл, строки которого содержат слова. Считая, что количество символов в слове не превосходит пяти, определить, сколько в файле имеется слов, состоящих из одного, двух, трех и.т.д. символов. Результат поместить в новый файл.

[ERAGORN]

Я слабо знаю паскаль, но попробуйте вот так.

const
    size = 5
var
    inFile:text;
    countStr:array[1..size] of integer;
    ch:char;
    str:string[size];
    i:integer;

begin
    for i := 1 to size do
        countStr[i] := 0;
    str = ''

    Assign (inFile,'in.txt');
    Reset(inFile);

    while ( not Eof(inFile)) do
    begin
        read (inFile, ch);
        if ch in ['a'..'z'] then
            str := str + ch
        else
            if str <> '' then
            begin
                inc(countStr[length(str)]);
                str := '';
            end;
    end;
    close (inFile);

    Assing (inFile, 'out.txt');
    Rewrite (inFile);

    for i := 0 to size do
    begin
        write (inFile, 'Dlinoy ', i);
        write (inFile, ' -- ', countStr[i]);
        writeln (inFile, ' slov');
    end;
    close (inFile);

    readln;
end.