Паскаль массив

[dante92]

Это програмка,вставляющая 2 пробела до всех символов,не принадлежащих некоторому множеству,задаваемому с клавиатуры.Она немного недоделана а именно недоделана в цикле repeat...until,подскажите что делать плиз.
const
dim=20;
Type
TVector=Array[1..50] of char;
setofchar=set of char;
Var
Mnojestvo:setofchar;
Vector:TVector;
Num,NumBeg,I,J:Byte;
Vstavl:char;
Begin
Writeln('Введите не более ',Dim,' символов');
Writeln('Конец ввода по ENTER');
Num:=0;
While not EOLN do
begin
Inc(Num);
Read(Vector[Num]);
end;
Readln;
Mnojestvo:=[];
write('Задайте множество символов ');
writeln('Конец ввода по enter');
while not EOLN do
begin
read(vstavl);
include(mnojestvo,vstavl);
end;
NumBeg:=Num;
I:=0;
Repeat
Inc(I);
If not (Vector[I] in mnojestvo)
then
begin
For J:=Num downto I+1 do
Vector[J+2]:=Vector[J];
Vector[I+1]:=' ';
Vector[I+2]:=' ';
Inc(Num);
Inc(Num);
end;
Until I=Num;
If NumBeg<>Num
then
begin
Writeln('Массив после вставки',Num-NumBeg,' пробелов ');
For I:=1 to Num do
Write(Vector[I],' ');
Writeln;
end
else
Writeln('Все символы принадлежат заданному множеству,значит пробелы не вставлены. Массив не изменен');
Readln
End.

[eoln]

Что значит до всех символов? Перед символами которые не входят во вмножество добавить пробелы?

For J:=Num downto I do
  Vector[J+2]:=Vector[J];
  Vector[I+0]:=' ';
  Vector[I+1]:=' ';
  Inc(Num);inc(i);
  Inc(Num);inc(i);
end;