Напишите программу, которая вычисляет сумму и среднее арифметическое значение последовательности положительных чисел,

program Project1;
var
  a: array [1..100] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i: integer; { Вспомогательные переменные для организации циклов.}
  sum: integer; {Переменная для хранения значения суммы}
  srareth: real; {Переменная для хранения значения среднего арифметического}
begin
  write('Введите значение максимального количества вводимых элементов последовательности: ');
  Readln(n);
  for i:= 1 to n do
    repeat
      write('Введите значение ',i,' элемента: ');
      Readln(a[i]);
    until a[i] > 0;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  sum:= 0;
  for i:= 1 to n do
    sum:= sum + a[i];
  writeln;
  writeln('Сумма элементов массива: ', sum);
  writeln('Среднее арифметическое элементов массива: ', (sum/n):0:2);
  Readln;
end.

var
  i, n: integer;
  x, s, a: real;
 
begin
  s := 0;
  write('n = ');
  readln(n);
  for i := 1 to n do
    begin
      write('Число ', i, ' = ');
      readln(x);
      s := s + x
    end;
  writeln('Сумма = ', s);
  a := s / n;
  writeln('Средне арифметическое = ', a);
  readln
end.