Напечатать все слова, удалив среднюю букву у слов нечетной длины.

var
 st,s1:string;
 i:integer;
begin
 readln(st);
 st:= st + ' ';
 for i:= 1 to length(st) do begin //идём по всей строке
   if st[i] = ' ' then begin //проверка, является ли символ пробелом
     if length(s1) mod 2 <> 0 then // если слово нечётной длинны
       delete(s1,(length(s1) div 2)+1,1); // удаляем средний символ
     write(s1,' '); // пишем слово
     s1:= ''; // очищаем буфф.
   end
   else
     s1:= s1 + st[i]; // записываем слово по букве
 end;
end.

uses crt;
const bk=['A'..'Z','a'..'z'];//буквы
      ds=['0'..'9','_','A'..'Z','a'..'z'];//все допустимые символы
function Test(word:string):boolean;
var i,k:byte;
begin
k:=0;
for i:=1 to length(word) do
if not (word[i] in ds) then
 begin
  k:=1;//если есть недопустимые символы
  break;
 end;
//результат=true, если допустимые символы+первый символ буква+строка не пустая 
//и не больше 63 символов
Test:=(k=0)and(word[1] in bk)and(length(word) in [1..63]);
end;
var s:string;
begin
clrscr;
writeln('Введите строку:');
readln(s);
write(Test(s));
readln
end.

myid - верно
my74 - верно
_my - верно
12my - неверно
35 - неверно
array - неверно