в строковом массиве из 9 слов заменить слова из 3 букв на пробел

program pr1;var  a: array[1..9] of string;  i: integer;begin  writeLn('заполните массив слов');  for i := 1 to 9 do    readLn(a[i]);  for i := 1 to 9 do    if length(a[i]) = 3 then       a[i] := ' ';  writeLn('обработанный массив');  for i := 1 to 9 do    writeLn(a[i]);    end.