В массиве 60 вещественных чисел вычислить среднее значение.Через процедуру - Pascal ABC

Формулировка задачи:

ЧЕРЕЗ ПРОЦЕДУРУ///В массиве 60 вещественных чисел вычислить среднее значение.Разделить исходный массив на два, в первый с которой отобрать числа,больше среднего значения,во второй меньше.

Решение задачи: «В массиве 60 вещественных чисел вычислить среднее значение.Через процедуру»

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

Const n=60;
Type mas=array[1..n] of real;
Var A,B,C:mas;
    i,m,k:integer;
    sr:real;
Procedure Pr(A:mas;n:integer;Var B,C:mas;Var m,k:integer;sr:real);
Var i:integer;
Begin
    m:=0;k:=0;
    For i:=1 to n do
     if A[i] > sr then
     Begin
       m:=m+1;
       B[m]:=A[i];
     End
     else if A[i] < sr then
     Begin
       k:=k+1;
       C[k]:=A[i];
     End;
End;
Begin
    sr:=0;
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      A[i]:=random*10;
      write(A[i]:6:2);
      sr:=sr+A[i];
    End;
    sr:=sr/n;
    writeln;
    writeln('Среднее арифметическое = ',sr:0:2);
    Pr(A,n,B,C,m,k,sr);
    writeln('Первый массив');
    if m=0 then write('Нету элементов больше среднего арифметического')
     else 
     For i:=1 to m do
      write(B[i]:6:2);
    writeln;
    writeln('Второй массив');
    if k=0 then write('Нету элементов меньше среднего арифметического')
     else 
     For i:=1 to k do
      write(C[i]:6:2);
End.

Объяснение кода листинга программы

Объявляются константа n равная 60 и тип данных mas, который представляет собой массив из 60 вещественных чисел.
Объявляются переменные A, B, C типа mas и i, m, k - целые числа.
Объявляется процедура Pr, которая принимает в качестве аргументов массив A, его размер n, массивы B и C, а также целые числа m и k.
В процедуре Pr происходит итерация от 1 до n. Для каждого элемента массива A проверяется условие: если A[i] больше sr (где sr - текущее среднее значение), то элемент A[i] добавляется в массив B, а счетчики m и k увеличиваются на 1. Если A[i] меньше или равно sr, то элемент A[i] добавляется в массив C, а счетчик k увеличивается на 1.
После завершения итерации по всем элементам массива A, значение sr используется для вычисления среднего значения и записывается в переменную sr.
Выводится исходный массив, для чего итерируется от 1 до n. Для каждого элемента массива A выводится его значение, затем оно добавляется к значению sr.
Вычисляется среднее значение и выводится на экран.
Выводится первый массив, для чего итерируется от 1 до m. Для каждого элемента массива B выводится его значение.
Выводится второй массив, для чего итерируется от 1 до k. Для каждого элемента массива C выводится его значение.
Если m равно 0, выводится сообщение Нету элементов больше среднего арифметического.
Если k равно 0, выводится сообщение Нету элементов меньше среднего арифметического.