Вывод нечётных слов - Pascal

Формулировка задачи:

посмотрите...в чем ошибка...Надо написать программу выводящую нечетные слова на экран...

uses crt;
var a,a1 : string;
l,i,n,j,v,t ,k,dlina: byte;
begin
clrscr;
write('введите текст:');
readln(a);
n:=length(a);
for i:=1 to n do if (a[i]=' ') and ((a[i-1])<>' ') then t:=t+1;
while j<=t do
begin
if j mod 2=1 then begin
     for i:=1 to n do
       begin
         if (a[i]=' ') and (a[i-1]=[FONT="Arial Black"][SIZE="5"][/SIZE][/FONT]' ') then v:=v+1; end;
     for i:=1 to n do
          if (a[i]=' ') and (a[i+1]<>' ') then begin
           a1:=copy(a,i-v+1,v);
 
   writeln ('слово ',a1);end;
    i:=i+v; v:=0; end;
 
   j:=j+1;  end;
   
readln;
end.

Решение задачи: «Вывод нечётных слов»

Листинг программы

k:=0;
for i:=1 to length(a) do
    if a[i]<>' ' then a1:=a1+a[i]
       else
       begin
       k:=k+1;
       if k mod 2=1 then write(a1,' ');
       a1:='';
       end;

Объяснение кода листинга программы

Объявлены две переменные: k и a1. Значение переменной k равно 0, а переменная a1 не определена.
Запускается цикл, который будет выполняться от 1 до длины строки a.
В каждой итерации цикла проверяется, является ли текущий символ строки a пробелом.
Если текущий символ не является пробелом, он добавляется к переменной a1.
Если текущий символ является пробелом, выполняется следующая последовательность действий:
- Значение переменной k увеличивается на 1.
- Проверяется, является ли значение переменной k нечетным числом. Если это так, то в консоль выводится пробел.
- Значение переменной a1 обнуляется.
Цикл завершается, когда достигается последняя итерация.
Выводится значение переменной a1, которое содержит все нечетные символы строки a, разделенные пробелами.