Язык Pascal. Программирование для начинающих

var
    f: file of char;
    fname: string;
    ch: char;
    n, line, w: word;
    flag: boolean;
 
begin
    write('File address&name: ');
    readln(fname);
    assign(f, fname);
    reset(f);
 
    n := 0;
    line := 0;
    w := 0;
    flag := false;
    while not EOF(f) do begin
        read(f, ch);
        if ord(ch) = 13 then begin
            read(f, ch);
            line := line + 1;
            flag := false;
        end
        else begin
            n := n + 1;
            if ch = ' ' then flag := false
            else
                if flag = false then begin
                    w := w+1;
                    flag := true;
                end;
        end;
    end;
    if n  0 then line := line + 1;
 
    writeln(n);
    writeln(line);
    writeln(w);
 
readln;
end.