Удалить в тексте третью букву каждого слова

begin
  var s:=ReadlnString('Введите текст:').ToWords;
  for var i:=0 to s.Length-1 do delete(s[i],3,1);
  s.Print;
end.

ReadlnString('Введите текст:').ToWords.Select(s -> s.Where((ch, i) -> (i + 1) mod 3 <> 0).JoinIntoString('')).Print;

var
a:string;
i:integer;
begin
readln(a);
a:=' '+a;
for i:=length(a) downto 1 do
if a[i]=' 'then delete(a,i+3,1);
writeln(a);
end.

var
  a:string; i:integer;
begin
  readln(a); a:=' '+a;
  for i:=length(a) downto 1 do
    if a[i]=' ' then delete(a,i+3,1);
  delete(a,1,1);
  writeln(a);
end.

var
  s,t,r:string;
  i:integer;
begin
  s:=readlnstring('введите текст:')+' ';
  for i:=1 to length(s) do 
    if uppercase(s[i]) in ['A'..'Z','А'..'Я','Ё'] then t:=t+s[i] 
    else begin
      delete(t,3,1);
      r:=r+t+s[i];
      t:='';
    end;
    delete(r,length(r),1);
  writeln('Полученный текст:"',r,'"');
end.

begin
  s := Regex.Replace(ReadlnString('Введите текст'), '(\b\w{2})(\w)', '$1');
  writeln(s);
end.