Var mas: array [1..10] of integer; k,i: integer; begin for i: =1 to 10 do k: =0; readln(a[i]); k: =k+a[i]; writeln(a[i] '+'); write(k); end. где ошибка? !

Ты не указал переменную "а[i]"

Var mas: array [1..10] of integer;
k,i:integer;
begin
for i:=1 to 10 do
k:=0;
readln(mas[i]);
k:=k+mas[i];
writeln(mas[i] ,'+');
write(k);
end.