Работа с файлами

uses
  crt;
 
var
  i, s, w: integer;
  a: char;
  F: text;
  flag: boolean;
 
begin
  Assign(F, 'input.txt');
  reset(F);
  i := 0;
  s := 0;
  w := 0;
  flag := false;
  while not EOF(F) do 
  begin
    read(F, a);
    if ord(a) = 13 then begin
      read(F, a);
      i := i + 1;
      flag := false;
    end
    else begin
      s := s + 1;
      if a = ' ' then flag := false
            else
      if flag = false then begin
        w := w + 1;
        flag := true;
      end;
    end;
  end;
  if i <> 0 then i := i + 1;
  writeln(i);
  writeln(s);
  writeln(w);
  close(F);
end.

uses crt;
var
    f: file of char;
    fname: string;
    ch: char;
    n, line, w: word;
    flag: boolean;
 
begin
    write('Введите путь к файлу с расширением : ');
    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.

program z1;
uses crt;
{наша структура}
Type book=record
author:string;
name:string;
year:integer;
publisher:string;
numofpages:integer;
end;
arrB=array[1..3] of book;
var
i:integer;
f:text;
a:arrB;
myauthor:string;
mynum:integer;
myyear:integer;
mypublisher:string;
counter:integer;
begin
clrscr;
{создаём файл для записи}
assign(f,'d:\book.txt');
rewrite(f);
writeln('Давайте заполним файл!');
{заполняем файл}
for i:=1 to 3 do
begin
writeln(f,i,' book: ');
write('Введите автора книги: ');
readln(a[i].author);
writeln(f,a[i].author);
write('Введите название книги: ');
readln(a[i].name);
writeln(f,a[i].name);
write('Введите год издания: ');
readln(a[i].year);
writeln(f,a[i].year);
write('Введите издательство: ');
readln(a[i].publisher);
writeln(f,a[i].publisher);
write('Введите количество страниц: ');
readln(a[i].numofpages);
writeln(f,a[i].numofpages);
writeln(f);
clrscr;
end;
{закрываем файл}
close(f);
end.

VAR 
s:string; 
i, wordcount:integer; 
 
BEGIN 
s := 'я учусь программировать на Паскале'; 
s:=s+' '; {чтобы каждое слово заканчивалось пробелом} 
while (length(s)>0) and (s[1]=' ') do delete(s,1,1); {убрать все пробелы сначала} 
while pos(' ',s)>0 do delete(s,pos(' ',s),2); {убрать все двойные пробелы} 
 
wordcount := 0; 
for i := 1 to length(s) do if s[ i ]=' ' then wordcount := wordcount + 1; 
{так подсчитали сколько слов} 
 
{length(s)-wordcount - столько сумма всех длин слов, очевидно} 
 
writeln('Средняя длина = ', (length(s)-wordcount)/wordcount:3:3); 
 
END.