Перепишите программу на Паскале, для вычисления суммы 10 вводимых с клавиатуры

Перепишите программку на Паскале, для вычисления суммы 10 вводимых с клавиатуры целых чисел, исправив
оплошности:
Program summa
Var k, а: real; sum: integer;
Begin
For i:=-10 to 10 Do
Read (a);
S:=S +1;
Write (S= S)
End.
Сколько найдено ошибок? _________________