1) Составить фразу "волчий аппетит" из слов "аптека", "ствол", "чайник".
2) Вывести на экран первую букву третьего слова данного текста. Если нет третьего слова, то вывести сообщение "ошибка".

волчий аппетит все просто ))

program e1;const  s1 = 'аптека';  s2 = 'ствол';  s3 = 'чайник';var  s: string;begin  s := concat(Copy(s2, 3, 3), s3[1], s3[5], s3[3], ' ');  s := Concat(s, Copy(s1, 1, 2), s1[2], s1[4], s1[3], s3[5], s1[3]);  writeln(s)end.Тестовое решение:волчий аппетитprogram e2;var  i, n, k: integer;  s: string;begin  writeln('Введите фразу, разделяя слова ровно одним пробелом');  readln(s);  n := length(s);  k := 0;  i := 1;  while (k < 2) and (i <= n) do   begin    if s[i] = ' ' then k := k + 1;    i := i + 1  end;  if k = 2 then writeln('Первая буква в третьем слове: ', s[i])  else writeln('Ошибка!')end.Тестовое решение:Введите фразу, разделяя слова ровно одним пробеломПросто тестовая фраза из пяти словПервая буква в третьем слове: ф