Составить программу, подсчитывающую сумму меньших чем предыдущие элементов массива S из 13 чисел — Pascal(Паскаль)

program PascalGuru;

var
  S: array [1 .. 13] of integer;
  i, n, summa: integer;

begin

  writeln('Vvedite elementy massiva S: ');
  for i := 1 to 13 do
  begin
    write('S[', i, ']=');
    readln(S[i]);
  end;

  writeln('Vot vvedennyi vami massiv S: ');
  for i := 1 to 13 do
    write(S[i]:4, ' ');

  summa := 0;
  for i := 2 to 13 do
    if S[i] < S[i - 1] then
      summa := summa + S[i];

  writeln;
  writeln('Summa: ', summa);

  readln;

end.