Презентация, доклад Текстовые файлы в Паскале

разделены между собой метками конца строки, а весь файл заканчивается меткой конца файла.
Предусмотрены два режима работы:
режим для записи в файл информации и
для чтения ее из файла.
Одновременная запись и чтение запрещены.

В теле программы необходимо получить доступ к файлу:
assign (f, ‘имя файла’); {имя файла с расширением, если файл находится в другой папке необходимо указать полный путь к нему}
3. открытие существующего файла (ранее созданного) для чтения
Reset (f)

(f); {открытие файла в режиме дополнения}
eof (f) {проверяет достигнут ли конец файла}

…
end;

close(f);

файл file.txt 
Закрыть файл.
Считать числа из файла
Вывести числа на экран через несколько пробелов.
Сосчитать их сумму и вывести ее на экран.

переменная, с которой будет связан файл целых чисел}
begin
read (n);s:=0;
assign (f, 'file.txt'); {файловая переменная связывается с файлом}
rewrite (f); {файл создается}
for i:=1 to n do {файл заполняется числами, введенными с клавиатуры}
begin
read (a);
write (f,a);
end;
close (f); {файл закрывается}

reset (f); {файл открывается, как существующий}
for i:=1 to n do {файл читается и значения выводятся на экран}
begin
read (f, a);
s:=s+a;
write (a:5);
end;
close (f); {файл закрывается}
writeln;
writeln(s);
end.

затем считываются из файла, выводятся на экран и определяется сумма этих чисел.
10 15 20 25 30
100

Найдите длину самой длинной подцепочки, состоящей из символов С. Для выполнения этого задания следует написать программу.
Введем текстовую переменную F, установим связь текстовой переменной и файла.
Если программа и файл с данными находятся в одной папке, то введем
Assign(F,'text.txt');
Если программа и файл с данными находятся в разных папках, то необходимо указать путь к файлу.

eof(F) do
begin
Read(F,C);
if c='C' then
begin inc(k);
if k >m then m:=k end
else k:=0;
end;
Close(F);
Writeln(m);
end.