составьте программу, которая запрашивает значение элементов одномерного числового массива a, состоящего из 10 элементов, формирует и выводит на экран в строку данный массив. найти сумму элементов массива, не равных нулю
Пожалуйста, быстреее!!!!!

var A:array[1..10] of integer;

i:integer;

s: integer;

begin

writeln('Массив А:');

s:=0;

for i:=1 to 10 do

begin

write('Введите ',i,'-e число ');

readln(A[i]);

if A[i] <> 0 then s:=s+1;

end;

write('Строка чисел: ');

for i:=1 to 10 do

begin

write(a[i],' ');

end;

writeln();

writeln('Сумма элементов, не равных нулю = ',s);

end.

var

a : array [1..10] of real;

s: real;

k : integer;

begin

s := 0;

for k:= 1 to 10 do

Begin

readln (a[k]);

s:= s+ a[k];

end;

for k:= 1 to 10 do writeln(a[k], ' ');

writeln ('сумма=', s);

End.