я сделала задание по информатике, но программа мне кажется слишком большой. есть ли её сократить?

Цикл — разновидность управляющей конструкции в высокоуровневых языках программирования, предназначенная для организации многократного исполнения набора инструкций.
Команда цикла в паскале:
1)for x to n do
begin

end.
2) while < условие> do <оператор 1>;  {Пока … делай ….}
3)repeat { повторяй … }
<оператор 1>;
< оператор 2>;
…
until {до…} <условие>

2. 
Условие цикла - это то, где мы объявляем задачу:
"for 1 to 2 do"
Тело цикла -Последовательность инструкций, предназначенная для многократного исполнения, называется телом цикла.
пример:
begin
(действие)
end.

Для чего используются команды цикла?
Чтобы не записывать одну операцию несколько раз.
Как записывается команда цикла FOR?
for x:={число} to {число} do
Как в цикле записать команду присваивания, чтобы она вычисляла сумму чисел? 
s:=s+x;
либо
inc(s,x);
Причем до цикла присвоить s=0
Количество? 
k:=k+1;
либо
inc(k);
Какое начальное значение должно быть у переменной, в которой накапливаем произведение чисел?
1
Как записывается команда цикла, в которой счетчик цикла уменьшается? 
for x:={число} downto {число}
либо
while k>0 do
k:=k-1;
Можно ли изменять значение верхней границы цикла в теле цикла? 
Можно, например:
for x:=1 to N do
n:=n+1;
Можно ли в теле цикла использовать команду сравнения?
Конечно, например:
for x:=1 to N do
if a[x]>a[x+1] then ...