символьные величины

[Poli_Abdulova]

1.дано слово. удвоить в нем все буквы, стоящие на четных местах
2. составьте программу, определяющую, на какую букву заканчивается второе слово в предложении

[deathNC]

1:

program KillWord;
var
  S: String;
  i, n: Integer;
begin
  ReadLn(S);
  n := Length(s);
  for i := n downto 1 do
    if i mod 2 = 0 then
      insert(s[i], S, i);
  WriteLn(s);
  ReadLn;
end.

[deathNC]

2:

program FLOSW; {First Letter Of Second Word :D}
var
  s: String;
  i: Integer;
begin
  ReadLn(s);
  i := pos(' ', s);
  {предполагается, что слова разделяются только пробелами}
  If i + 1 <= Length(s) then
    WriteLn(s[i + 1])
  else
    WriteLn('Second word not found!');
  ReadLn;
end.