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