Встроковом массиве из 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.