фАЙЛЫ

[Rudichekkk]

Создать текстовый файл F1 не менее, чем из 10 строк и записать в него информацию.
1)Скопировать из файла F1 в файл F2 все строки, в которых нет слов, совпадающих с первым словом.
2)Определить количество согласных букв в первой строке файла F2.


ПОМОГИТЕ ПРОШУ

[ZX Spectrum-128]

2.

const
  soglas = ['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
...
 kol:=0;
 for i:=1 to length(stroka) do
   if (stroka[i] in soglas) then
     inc(kol);

[Rudichekkk]

спасибо))
а по первому вопросу что то знаешь?

[ZX Spectrum-128]

var
  f:text;
...
assign(f,'text.txt');
rewrite(f);
for i:=1 to 10 do
  writeln(f,'всякую чушь писать можно здесь');
close(f);