Cho đoạn chương trình sau, hãy tìm lỗi sai và sửa lại chương trình hoàn chỉnh

Cho đoạn chương trình sau , hãy tìm lỗi sai và sửa lại chương trình hoàn chỉnh
Program tong ;
Var A:array[1.5..20]: interger ;
           Tong,N,i:real;
Begin
       s=0;
       For i:=40 to 10 do Write (i);
       s:=s+i