program Cteni_Textu;
uses crt;

var f:text;
    g:text;
    i:byte;
    l,r,w:longint;
    cesta,radek:string;

begin
l:=0;
r:=0;
w:=0;
  clrscr;
  {$I-}
  write ('Zadej nazev souboru');
  Readln (Cesta);
  Assign (f,cesta);
  Reset (f);
  If InOutRes<>0 then Begin
                      Writeln ('Spatne zadany soubor');
                      Writeln ('Program bude ukoncen');
                      halt (1);
                      end;
  {$I+}
  while not eof(f) do begin
    readln (f,radek);
    l:=l+length (radek);
    r:=r+1;
    for i:=1 to length (radek) do begin
                                  case ord(radek[i]) of 0,32,96,255:w:=w+1;
                                  end;

                       end;
    w:=w+1;
end;
writeln ('delka= ',l);
writeln ('radky= ',r);
writeln ('slova= ',w);
readkey;
end.