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

С целью уменьшить размер файлов.
Это программа, осуществляющая упаковку файлов.
Имеет возможность упаковывать один и более файлов в архив или серию архивов для удобства переноса или хранения, а также распаковку архивов
область деятельности, в которой компьютеры наряду со специальным программным обеспечением используются в качестве инструмента, как для создания (синтеза) и редактирования изображений, так и для оцифровки визуальной информации, полученной из реального мира, с целью дальнейшей её обработки и хранения.
Растр выглядит в виде точек - Пикселей. Векторное изображение задается формулами.
тем что существуют разные программы выполняющий разный тип задач и для каждый из них нужно, что то свое

Program naconecto;vara,b,c,d:string;BEGINwriteln('a=');writeln('b=');writeln('c=');writeln('d=');readln(a);readln(b);readln(c);readln(d);if (length(a)>length(b)) and (length(a)>length(c)) and (length(a)>length(d)) then  begin    writeln('a uMeeT Makc gJluHy=',length(a));  endelse if (length(b)>length(c)) and (length(a)>length(d)) then  begin    writeln('b uMeeT Makc gJluHy=',length(b));  endelse if (length(c)>length(d)) then  begin    writeln('c uMeeT Makc gJluHy=',length(c));  endelse  begin    writeln('d uMeeT makc gJluHy=',length(d));  end;readln;END.