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

program aa;
var a:string;
k,x: integer;
begin
readln(a);
k:=length(a);
x:=3;
while x<=k do
begin
a[x]:=' ';
x:=x+3;
end;
writeln(a);
readln;
end.