Написать программу на Pascal ABC. Дано предложение. Вывести строчку в оборотном

program sentence;
var s:string;
i:integer;
begin
writeln(Введите строчку: );
Readln(s);
for i:= 1 to length(s) do
if i mod 2 = 0 then write(i mod 10) else write( );
writeln();
for i:=length(s) downto 1 do write(s[i]);
writeln();
for i:= 1 to length(s) do
if (s[i] = и) then writeln(i, , s[i]);
end.