Заменить все элементы массива, которые меньше среднего арифметического значения всех элементов - Turbo Pascal

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

Помогите, пожалуйста, правильно написать программу. Я написал код, но он не запускается. Задание.В данном массиве целых чисел заменить все элементы, которые меньше среднего арифметического значения всех элементов массива, на -1, и те, которые больше среднего арифметического значения всех элементов массива, на 1. Число элементов и массив значений просить у пользователя.

Var
Mass: array of integer;
i:= integer;
S:= integer;
j: integer;
begin S:=0;
Writeln (‘Введите размерность массива’);
Readln (length(mass));
For i:=0 to length (mass) do
begin
Writeln (‘Введите’, mass[i], ‘элементмассива’);
Readln (mass[i]);
End;
For j:=0 to length (mass) do begin
S:= mass(j) + S;
If j>= length (mass) do
S:= S/j;
End;
For i:=0 to length (mass) do begin
If mass(i)>S then begin
Mass[i]:= 1 else
Mass[i]:=-1; end;
Writeln (mass[i]);
End;
End.

Решение задачи: «Заменить все элементы массива, которые меньше среднего арифметического значения всех элементов»

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

uses crt;
const nmax=100;
var
     mass       : array [1..nmax] of integer;
     i, S, j, n : integer;
     sr: real;
begin
  S:=0;clrscr;                                                                            
repeat
  Write('Введите размер массива, не больше ',nmax,' = ');
  Readln (n);
until (n>0) and (n<=nmax);
 
For i:=1 to n do
 begin
  Write ('Введите ', i, ' элемент массива: ');
  Readln (mass[i]);
 End;
 
writeln('Исходный массив : ');
For i:=1 to n do
 begin
  write(mass[i],' ');
  S:= mass[i] + S;
end;writeln;
sr:=s/n;
 
writeln('Получившийся массив : ');
For i:=1 to n do
 begin
 If mass[i]>sr then
    Mass[i]:= 1
               else
    if mass[i]<sr then
       Mass[i]:=-1;
 Write(mass[i],' ');
 End;writeln;
readln;
End.

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

Создаётся переменная nmax со значением 100.
Создаётся массив mass типа array [1..nmax] of integer.
Создаются переменные i, S, j и n со значениями 0, 0, 0 и 1 соответственно.
Вычисляется значение переменной sr как среднего арифметического всех элементов массива mass.
Очищается экран с помощью функции clrscr.
Запускается цикл repeat, который продолжается до тех пор, пока размер массива не будет введен в диапазоне от 0 до nmax включительно.
Внутри цикла repeat запрашивается размер массива от пользователя.
В цикле for с 1 по n выводится запрос на ввод элемента массива.
В цикле for с 1 по n выводится значение элемента массива mass[i].
Вычисляется среднее арифметическое всех элементов массива mass.
Если значение элемента массива mass[i] больше sr, то его значение заменяется на 1.
Если значение элемента массива mass[i] меньше sr, то его значение заменяется на -1.
Выводится значение элемента массива mass[i].
Повторяем шаги 10-13 для всех элементов массива mass.
Выводится сообщение о получившемся массиве.
Запрашивается ввод с клавиатуры.
Программа завершается.