Подсчитайте число и сумму положительных элементов заданного массива A(N)

Uses Crt;
   Var a:Array[1..100] of Integer;
        i,n,k,summa:integer;
Begin
   ClrScr;
   Writeln('Введите количество элементов массиве:');
   Readln(n);
   Writeln('Теперь заполните этот массив');
   For i:=1 to n do
      Begin
         Write('a[',i,']');
         Readln(a[i]);
      End;
   For i:=1 to n do
      If a[i]>0 Then k:=k+1; summa:=summa+a[i];
   Writeln('сумма = ');
   Writeln(summa);
   Writeln('число = ');
   Writeln(k);
End.

Uses Crt;
   Var a:Array[1..100] of Integer;
        i,n,k,summa:integer;
Begin
   ClrScr;
   Writeln('Введите количество элементов массиве:');
   Readln(n);
   Writeln('Теперь заполните этот массив');
   For i:=1 to n do
      Begin
         Write('a[',i,']');
         Readln(a[i]);
      End;
      begin
   For i:=1 to n do
      If a[i]>0 Then
      begin
      k:=k+1;
       summa:=summa+a[i];
       end;
   Writeln('сумма = ');
   Writeln(summa);
   Writeln('число = ');
   Writeln(k);
End;
end.