Пользователь вводит слово,определить является ли оно перевертышем написать программу в pascal

Var
S1,S2:string;
i:integer;
Begin
Write('Введите слово: ');
ReadLn(S1);
For i:= 1 to Length(S1) do
    S2:=S1[i]+S2;
if S1=S2 then WriteLn('Да')
else WriteLn('Нет');
End.