Помогите упростить!

[AliceBreez]

Слишком много лишнего и не рационального написала в программе, но она работает
Но нужно как-то упростить саму сортировку, помогите пожалуйста

[Dvoishnik]

Что программа то делать должна??

[Serge_Bliznykov]

Сообщение от Dvoishnik

Что программа то делать должна??

цитирую из исходника, вложенного в данный архив:

{Все нулевые значения переписать в конец данных, не изменяя следования остальных чисел.
Новых данных при этом не заводить.
Если нулей будет больше 3-х, то первый ноль заменить на среднее арифметическое значение до этого нуля }

вот только непонятно, зачем для этого использовать список?
Может быть, можно обойтись массивом?

[ViktorR]

В своей первой части эта задача уже решалась.
В цикле for просматривается массив. Пусть параметр цикла - i.
При обнаружении нулевого элемента вспомогательная переменная, например, m получает значение параметра цикла.

m := i;

Далее, при обнаружении ненулевого элемента массива, он (элемент) записывается в m-ный элемент, а m увеличивается на единицу.

...
Mas[m] := Mas[i];
m := m + 1;
...

Одновременно подсчитывается сумма элементов:

...
Sum := Sum + Mas[i];
...

После завершения просмотра всех элементов массива во вспомогательной переменной хранится первый нулевой элемент после ненулевых элементов.
В новом цикле for заполняем нулями все элементы массив, начиная с m-го. Если n - всего элементов в массиве, то:

...
for i := m to n do
   Mas[i] := 0;
...

n - m +1 - число нулевых элементов.
Проверяем условие на число нулевых элементов и решаем судьбу m-го элемента массива:

...
if ((n-m+1) > 3 )then
Sred := Sum/(m-1);
...

Как-то так, ...