Постройте функциональную схему с заданной функцией проводимости: не(X)^Y(отрицание для двух скобок)(Xv(неY))(Xv(неZ))

PascalABC.NET 3.2:
1.
begin
   write(ReadString.indexof(':'))
end.
Пример ввода: 1234:56
Пример вывода: 4

2.
begin
   write(readString.ToWords.Select(x->x[1]).JoinIntoString)
end.
Пример ввода: Как любила язвить королева, собаки апплодировали
Пример вывода: Клякса
3.
begin
   write(readString.ToWords.Select(s->Length(s)).Max)
end.
Пример ввода: Не хочу учиться хочу жениться
Пример вывода: 8
4.
Если там нет знаков препинания:
begin
   write(readString.ToWords.Select(s->ReverseString(s)).JoinIntoString(' '))
end.
Если там есть знаки препинания, которые надо оставить на месте, то настолько же короткого решения мне не придумалось, можно так: 
begin
  var str := readString + ' ';
  var m := '';
  for var i := 1 to str.Length do
    if str[i].IsLetter then
      m += str[i]
    else
    begin
      write(ReverseString(m), str[i]);
      m := '';
    end;
end.
Пример ввода: амар алым умам
Пример вывода: рама мыла маму

Sub Ex()
    Dim Y() As Integer, X() As Integer
    Dim i As Integer, n As Integer
    Range(Cells(1, 2), Cells(100, 2)).ClearContents
    i = 1
    Do While Len(Cells(i, 1).Value) <> 0
        i = i + 1
    Loop
    n = i - 1
    ReDim Y(1 To n), X(1 To n)
    For i = 1 To n
        Y(i) = Cells(i, 1).Value
        X(i) = Y(i) + i
        Cells(i, 2).Value = X(i)
    Next i
End Sub

Предполагается, что данные располагаются в колонке А, начиная с ячейки А1
В колонку B будет выведен результирующий массив.
Признак конца считывания - пустая ячейка в колонке А