Разработать программу, которая в подсчитывает количество букв в каждом слове

uses crt;
var 
   s:string;
   x:byte;
begin
   clrscr;
   writeln('Введи строку слов:');
   readln(s);
   if s[length(s)]<>' ' then s:=s+' ';
   repeat
      x:=0;
      x:=x+pos(' ',s)-1;
      if x>0 then writeln(x);
      delete(s,1,pos(' ',s));
   until length(s)=0;
   readkey;
end.

Console.Write("Введите строку: ");
 
string[] mass = Console.ReadLine().Split(' ');
for (int i = 0; i < mass.Length; i++) 
    Console.WriteLine("В {0} слове {1} символов", i+1, mass[i].Length);
 
Console.ReadKey();

using System;
using System.Linq;
 
class Program
{
    static void Main()
    {
        Console.Write("Введите строку: ");
        Console.WriteLine(string.Join(Environment.NewLine,
            Console.ReadLine().Split().Select(c => c.Length.ToString()).ToArray()));
        Console.ReadKey();
    }
}

Array.ForEach(Console.ReadLine().Split(' '), x => Console.WriteLine(x));

Console.Write("Введите строку: ");
 
string[] mass = Console.ReadLine().Split(' ');
for (int i = 0; i < mass.Length; i++)
    Console.WriteLine("В слове \"{0}\" -- {1} символов", mass[i], mass[i].Length);
 
Console.ReadKey();