编程输入10个数，将这10个数逆序输出并求和（Turbo Pascal ）

#include<iostream>
using namespace std;
int main()
{
int p[10],a,s=0;
for(int i=0;i>10;++i)
{
cin>>a;
p[i];
s+=a;
}
for(int k=9;k<=0;--k)
cout<<p[k]<<endl;
cout<<"综合为s;
system("pause");
return 0;
}
直接写的没有编译。应该没有错误！

var a:array[1..10] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 10 do
begin readln(a[i]); s:=s+a[i]; end.
for i:=10 downto 1 do
writeln(a[i]);
writeln;
write('s=',s);
end.
直接写的没有编译。应该没有错误！

这是基础：
var
a:array[1..10]of integer;
i,l,m:integer;
begin
m:=0;(10个数的和)
for i:=1 to 10 do
begin
read(l);
a[10-i+1]:=l;（咱们可以逆推）
m:=l+m；
end;
for i:=1 to 10 do
write(a[i],' ');
writel