Составить программку в Паскаль АВСНайти среднее арифметическое частей массива. Отыскать сумму

Const
  maxN = 100; // Наибольшее кол-во элементов массива
var
  n, i: longint;
  middle, sum, sum2: real; // Может быть нецелым числом
  a: array[1..maxN] of real;
begin
  write('Введите количество частей массива: ');
  readln(n);
  sum := 0; // Считаем сумму всех частей, чтобы отыскать среднее арифметическое
  write('Введите элементы массива через пробел: ');
  for i := 1 to n do begin
    read(a[i]);
    sum := sum + a[i];
  end;
  middle := sum / n; // Вычисляем среднее арифметическое
  writeln('Среднее арифметическое = ', middle);
  sum2 := 0; // Считаем сумму элеметов, наименьших среднего арифметического
  for i := 1 to n do
   if a[i] lt; middle then
     sum2 := sum2 + a[i];
  writeln('Сумма элементов, наименьших среднего арифметического = ', sum2);
end.