Решение задачи обработки строк и простых структур данных

Листинг программы

program Lab14;
uses crt;
var
f,ff:text;
s:array [1..25] of string;
i,j,n:integer;
v,k,t, kol:byte;
begin
...

Задание:
Дан некоторый текст конечной длины, состоящий из символов некоторого алфавита.
Требуется с помощью ЭВМ определить количество заданных символов как по строкам и в целом по тексту. Определить местоположение этих символов (номер строки и номер символа в строке). При необходимости преобразовать исходный текст.
В результате представить результаты анализа, распечатки исходного и преобразованного текстов.

Вариант № 4.
1. Алфавит – латинский.
2. определить количество пар одинаковых соседних символов; в четных строках заменить их сочетанием ++, а в нечетных – сочетанием 00.

Изучил методы работы со строками и структурами данных. Приобрел навыкои в программировании АЯ, ориентированных на обработку строк и структур.
Результаты полученные в ходе работы программы совпадают с теми, что были подсчитаны вручную. Это может свидетельствовать правильной работоспособности программы и алгоритма.

p.s. В работе содежится исходный код, описан математический алгоритм + графическая блоксхема и анализ результатов.