В условии задачи сказано, что файл нужно создать самому. То есть это не надо делать в программе.
Тогда остается только вывести текст файла на экран и определить количество слов (если, например, слова разделены пробелом). Из соотношения количества символов и символов в строке находим количество строк (~15) и выводим их через цикл:
| Код |
...
Var f: Text;
str: String;
word: Word;
i, j: Integer;
Const maxStr = 15;
maxS = 70;
Begin
Assign( f, 'your_file.dat' );
Reset( f );
word := 0;
For i:=0 To maxStr Do { пробегаемся по строкам }
begin
ReadLn( f, str );
For j:=0 To maxS Do { пробегаемся по символам и ищем пробелы }
If( str[ j ] = ' ' )
Inc( word );
WriteLn( str + #13#10 );
end;
Close( f );
Write( #13#10 + 'Количество слов в файле: ', word );
ReadLn;
End.
|
|