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

Program Lab2;
  var l:integer;
    j,m:integer;
    i:integer;
    S:string[75];
    W:array[1..20] of string[15];
    l1:array[1..10] of integer;
    f:text;
    name:string[20];
BEGIN
Writeln('Вкажіть ім’я файла, в який будуть виводиться ');
writeln('вихідні дані та результати обчислень або CON ');
         readln(name);
         Assign(f,name);
         Rewrite(f);
         writeln(f,'Лабораторна робота N 2');
         writeln(f,'Тема: Обробка символьних рядків');
    writeln(f,'Виконав студент групи БІТ-97 Сидоров І.');
         writeln;
 
write('Введіть вихідний рядок ');
readln(S);
writeln(f, 'Вихідний рядок ');
writeln(f,S:6);
l:=length(S);
 
{Розбивка вихідного рядка на слова}
j:=1;
W[j]:='';
for i:=1 to l do
 if S[i]=' ' then
  begin
   j:=j+1;
   W[j]:='';
  end
 else W[j]:=W[j]+S[i];
 
{Слова вихідного рядка}
 for i:=1 to j do
  writeln(f,i:2, ' слово -  ',W[i]); 
 writeln(f);
 
writeln(f, 'Шукані слова ');
for i:=1 to j do
   begin
    L:=length( W[j]);
    L:=L div 2;
    L:=L mod 3;
    if L=0 then writeln(f1,w[i]:15)
   end;
 
 writeln(f);
 close(f);
 readln;
END.