Подсчитать сумму элементов массива, меньших, чем предыдущие - Pascal ABC

Формулировка задачи:

Составить поставку,алгоритм и в паскале программу подсчитывающую сумму меньших чем предыдущие элементов массива S ИЗ 12 чисел.Значения элементов массива ввести с клавиатуры.я написал программу,но почему то в строке END выдает ошибку.Почему?

uses crt;
var S:array [1..13] of integer;
sum,i:integer;
begin
Repeat
write('Введите 13 чисел ');
readln(S[i]);
Sum:=0;
for i:=1 to 13 do
readln(S[i]);
for i:=2 to 13 do;
if S[i]<S[i-1] then sum:=sum+s[i];
write('Sum=',Sum);
readkey;
end.

Решение задачи: «Подсчитать сумму элементов массива, меньших, чем предыдущие»

Листинг программы

uses crt;
var S:array [1..13] of integer;
sum,i:integer;
begin
write('Введите 13 чисел ');
Sum:=0;
for i:=1 to 13 do
 begin
  readln(S[i]);
  if(i>1)and(S[i]<S[i-1]) then sum:=sum+s[i];
 end;
write('Sum=',Sum);
readkey;
end.

Объяснение кода листинга программы

В начале кода используется библиотека crt, которая предоставляет функции для работы с консолью.
Переменная S представляет собой массив из 13 элементов типа integer.
Переменная sum и i также являются целочисленными типами.
С помощью функции write пользователь вводит 13 чисел для массива S.
Затем переменная sum инициализируется значением 0.
С помощью цикла for происходит итерация от 1 до 13 (так как массив S имеет 13 элементов).
Внутри цикла переменная i принимает значения от 1 до 13.
Если текущий элемент (S[i]) меньше предыдущего элемента (S[i-1]) и i больше 1, то к переменной sum добавляется значение S[i].
После завершения цикла переменная sum выводится на экран вместе с сообщением Sum=.
Функция readkey используется для чтения символа с клавиатуры, чтобы пользователь мог нажать Enter после просмотра результата.