Сумма элементов массива

uses crt;
var a:array[1..10] of integer;
i,n,sum:integer;
begin
clrscr;
write('n = ');
readln(n);
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to n do
begin
write(a[i]:4);
end;
sum:=0;
for i:=1 to n do
if a[i]>0 then
begin
sum:=sum+a[i];
end;
writeln;
writeln('Summa = ',sum);
readln;
end.

for i:=1 to n do
sum:=sum+a[i];

Program School;
Uses
     crt;
Const
     n=10;
Type
     TVector= array [1..n] of integer;
Var
     A:TVector;
     i:byte;
     Sum: integer;
Begin
 clrscr;
 
  writeln('Введите элементы масива'); 
  for i:=1 to n do
    begin
          readln(A[i]);
          write(' ':3);
    end;
 
    {Считает сумму всех элементов масива}
    Sum:=0;
    For i:=1 to n do
         Sum:= Sum + A[i];
 
    writeln('Сумма элементов равна ', Sum:8);
    
    readln;
end.

Program School;
Uses
     crt;
Const
     n=10;
Type
     TVector= array [1..n] of integer;
Var
     A:TVector;
     i:byte;
     Sum: integer;
Begin
 clrscr;
 
 writeln('Введите элементы масива'); 
    
 Sum:=0;
 for i:=1 to n do
    begin
          readln(A[i]);
          Sum:=Sum+A[i];          
          write(' ':3);
    end;
    
 writeln('Сумма элементов равна ', Sum:8);
    
    readln;
end.