«Текстовые файлы»

[orehov]

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

[Firstchar]

Сообщение от orehov

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

var f:file of text;
f_name:string;
begin
readln(f_name);
assign(f,f_name);
rewrite(f);

создание текстового файла

var m:set of a..z;
mas:array[1..50] of string;
n,i:integer;
begin
write('количство символов: ');
readln(n)
write(' введите через пробел символы: ');
for i:=1 to n do
read(mas[i]);
for i:=1 to n do
m:=m+mas[i];

пример заполнения множества символов

функция определения конца строки: eoln(f)
функция определения конца файла: eof(f)
проверить входит ли переменная в множество так:

if x in m then
write('ура!');

p.s. и не забудьте, что текстовые файлы- это файлы с последовательным доступом