Ошибка времени выполнения: Индекс находился вне границ массива - PascalABC.NET (25150)

var
  s, s2: string;
  a, i, sum: integer;
 
begin
  readln(s);
  a := length(s);
  for i := 1 to length(s) do 
  begin
    if s[i] = s2[a] then
      sum := sum + 1;
    a := a - 1;
    writeln(a);
  end;
  if sum = length(s) then 
    writeln('Да') 
  else 
    writeln('Нет');
end.