Составить программу,которая вычеркивает каждую третью букву слова Х — Pascal(Паскаль)

var
a,t:string;
b:array[1..100]of string;
i,k,f,j:integer;
begin
readln(a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
for i:=1 to k do
begin
t:=b[i];
for j:=length(t) downto 1 do
if j mod 3=0 then delete(t,j,1);
write (t,' ');
end;
readln;
end.

ar
a,t:string;
b:array[1..100]of string;
i,k,f,j:integer;
begin
readln(a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' 'then k:=k+1 else b[k]:=b[k]+a[i];
for i:=1 to k do
begin
t:=b[i];
for j:=length(t) downto 1 do
if j mod 3=0 then delete(t,j,1);
write (t,' ');
end;
readln;
end.