Из текста удалить каждое второе слово. Слова разделены пробелом (программа Паскаль)

USES Crt;
Type  MAS= STRING [20];
VAR
  A : MAS;
  I,K: INTEGER;
BEGIN
 ClrScr;
 Write('Введите текст  ');  ReadLn(A);
 i:=1;
 While (I<=Length(A)) DO Begin
    IF A[I]=' ' THEN  Begin
                                  K:=I+1;
                                 While (A[K]<>' ') DO  Delete(A,K,1);
                                  I:=I+1;
    End;
    I:=I+1;
  End;
 WriteLn(‘Измененный текст:’); Write(A);
END.