Массив: Вывести сумму элементов массива Х.

##
var N: integer;
repeat 
  N := ReadlnInteger('Кол-во эл-тов в массиве (N>0):');
  if N <=0 then println('*** Не подходит! Повторите ввод...') else break;
until false;
var X := ReadArrReal('Введите эл-ты массива X:', N);
println('Массив X =', X);
var Y := |X.max| * X.count; // если нужен был только один эл-т, то var Y := |X.max|;
println('Массив Y =', Y);
println('Sum[X] =', X.sum);

type
  Array10 = array[1..10] of real;
var 
  N, i: integer;
  X, Y: Array10;
  max, sum: real;
 
procedure PrintArray(a: Array10; n: integer);
var i: integer; 
begin
  write('[', a[1]);
  for i := 2 to n do write(', ', a[i]);
  writeln(']');
end;
 
begin
  repeat
    write('Кол-во эл-тов в массиве (N>0): '); readln(N);
    if N <=0 then println('*** Не подходит! Повторите ввод...') else break;
  until false;
  
  writeln('Введите ', N,' элемент(-а/ов) массива X (вещ. типа):');
  for i := 1 to N do read(X[i]);
  write('Массив X = '); PrintArray(X, N);
  
  max := X[1];
  for i := 1 to N do if X[i] > max then max := X[i];
  
  for i := 1 to N do Y[i] := max;
  write('Массив Y = '); PrintArray(Y, N);
  
  sum := 0.0;
  for i := 1 to N do sum := sum + X[i];
  write('Sum[X] = ', sum);
end.