С клавиатуры вводится слово. Получить новое слово, образуемое путем прочтения исходного слова, начиная с его конца. Pascal ABC

Var
   S,B:string;
   i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
For i:= Length(S) downto 1 do
    B:=B+S[i];
WriteLn('Перевёрнутая строка: ',B);
End.