ви влаштували вечірку. хтось з друзів приніс цукерки. напишіть програму щоб у усіх друзів було порівну цукерок а остача залишиться у ящику(информатика 7класс)

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

var 
 n:integer;
 a:array[1..100] of integer;
begin
 write('Введите размер массива (n<100): ');readln(n);
 var max:=0;
 var min:=101;
 for var i:=1 to n do
 begin
  a[i]:=random(0,100);
  write(a[i],' ');
  if i mod 2=1 then
   if a[i]>max then max:=a[i]
   else
    if a[i]<min then min:=a[i];
 end;
 writeln;
 writeln('Максимальный - ',max);
 writeln('Минимальный - ',min);
 writeln('Cумма максимального и минимального - ',max+min);
 readln;
end.

Пример:

Введите размер массива (n<100): 10
22 6 51 84 46 66 10 36 14 52                   // рандомная генерация
Максимальный - 51
Минимальный - 10
Cумма максимального и минимального - 61

Program vtor_bukva;

var
  S: String;

begin
  Writeln('введите исходное предложение: ');
  Readln(s);
  delete(s, pos(' ', s), 1);
  write('Последняя буква второго слова=');
  if pos(' ', s) <> 0 then write(s[pos(' ', s) - 1])
  else write(s[length(s)]);
  readln(s);
end.

Твоя программа выводит символ, стоящий перед ПЕРВЫМ пробелом. А нужно, чтобы выводила символ, стоящий перед вторым пробелом. Не стоит забывать, что второго пробела может и не быть. Так что, я удаляю первый пробел. А потом делаю проверку: есть ли ещё пробелы (if pos(' ', s) <> 0)? Если пробелы есть, то программа выводит букву, следующую перед вторым пробелом (или последнюю букву второго слова). Если пробелов нет (всего два слова в предложении было введено), то программа выводит последнюю букву (s[length(s)]). Если что-то не понятно, в лс.