Помогите пожалуйста найти недочёты

 program nik;
type
massiv= array[1..1000] of integer;
var
i,n,summa: integer;
srednee: real;
a: massiv;
write('Введите количество элементов:'); readln(n);
summa:=0;
for i=1 to n do
 write('Введите',i,'элемент:'); readln(a[i]);
 summa:=summa+a[i];
 end;
 srednee:=summa/n;
 writeln('Среднее арифметическое', srednee:3:2);
 readln;
 end.

// Желательно использовать отступы для выделения структуры программы
 
// Иногда бывает полезно использовать константу для указания 
// границы индексов массива
// Написав так:
// const MAXSIZE = 1000;
// type massiv = array [1..MAXSIZE] of integer;
 
// Хотя в данной задаче можно вообще обойтись
// без объявлений типов и констант
type
  massiv= array[1..1000] of integer; 
 
var
  i, n: integer;
  summa: longint; // Сумма элементов массива может не вместится в integer;
  srednee: real;
  a: massiv;
BEGIN
  write('Введите количество элементов: ');
  readln(n);
  summa:=0;
  for i:=1 to n do
  begin
    write('Введите ',i,'-й элемент: ');
    readln(a[i]);
    inc(summa, a[i]) // summa:=summa+a[i]- выполняется медленней чем inc
  end;
  srednee:=summa/n;
  writeln('Среднее арифметическое: ', srednee:3:2);
  readln
END.

  for i:=1 to n do
  begin
    write('Введите ',i,'-й элемент: ');
    readln(a[i]);
    inc(summa, a[i]) // summa:=summa+a[i]- выполняется медленней чем inc
  end;

var
  i, n, v : Integer;
  s : Longint;
begin
  Write('Введите количество элементов: '); ReadLn(n);
  s := 0;
  for i := 1 to n do
    begin
      Write('a[', i, '] = '); ReadLn(v); s := s + v;
    end;
  WriteLn('Сумма элементов = ', s);
  WriteLn('Среднее арифметическое = ', s/n:0:3);
end.