Розв’язок задачі з Абрамова №316в

Всі умови | Умова: Дано натуральне число n, символи s1, ... , Sn. Будемо розглядати слова, утворені символами, що входять у послідовність s1, ..., sn (див. задачу 269), вважаючи при цьому, що кількість символів в кожному слові не перевершує 15. Видалити з s1, ..., sn всі слова з непарними порядковими номерами і перевернути все слова з парними номерами. Наприклад, якщо n = 21 і дана послідовність символів являє собою послідовність во_что_би_то_ни_стало, то повинна вийти послідовність отч_от_олатс. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №316)

program Pr316_3;
var i,j,nom,n: integer;
    s1,s2,s3: string;
begin
write('n=');
readln(n);
writeln('введите последовательность символов');
readln(s1);
s1:=s1+' ';
nom:=1;
for i:=1 to length(s1) do
 if s1[i]<>' ' then s2:=s2+s1[i] else
 begin
   if (s2<>'') and odd(nom) then
     delete(s1,i-length(s2),length(s2));
   nom:=nom+1;
   s2:='';
 end;
for i:=1 to length(s1) do
  if s1[i]<>' ' then s2:=s2+s1[i] else
  if s2<>'' then
  begin
    for j:=length(s2) downto 1 do
      s3:=s3+s2[j];
    s3:=s3+' ';
    s2:='';
  end;
writeln(s3);
readln
end.