составить программу определяющую на какую букву начинается второе слово в предложении

Program WTF;
Var
  S:String;
  i,k:integer;
Begin
  K:=0;
  Write('вводим исходную строку:'); Readln(s);
  For i:=1 To Length(S) Do
  If s[i]='F' Then k:=k+1;

write(s[pos(' ',s)+1]);//это будет первая буква второго слова

Program WTF;
Var
  S:String;
Begin
  Writeln('вводим исходную строку:');
  Readln(s);
  write('Первая буква второго слова=',s[pos(' ',s)+1]);
  readln;
end;

k:=0;
for i:=length(s) downto 1 do
if s[i]='И' then
 begin
  k:=k+1;
  insert('нфо',s,i+1);
 end;

Program z1;
Var
  S:String;
  k,p:integer;
BEGIN
  Write ('введите исходную строку:'); Readln(S);
  While Pos('i',S)>0 Do 
  Begin
    p:=pos('i',s);    Delete (S,Pos('i',S),1);
    Insert ('info',S,p); 
  End;
  Writeln('Получилась строка ',S);
End.

Program z1;
Var
  S:String;
  i,k:byte;
BEGIN
Write ('введите исходную строку:'); 
Readln(S);
k:=0;
for i:=length(s) downto 1 do
if s[i]='i' then
 begin
  k:=k+1;
  insert('nfo',s,i+1);
 end;
Writeln('Получилась строка ',S);
write('Всего замен=',k);
readln 
End.