растяжение массива.исправить код

[Flomic]

Утроить все согласные буквы текста, принадлежащие некоторому множеству, задаваемому с клавиатуры.Прога не утраивает
Вот код:
Program InsertZero;
{Работа Алексеева К.В.}
Type
TVector=Array[1..40] of char;
smnog=set of char;
Var
Vector:TVector;
Num,NumBeg,I,J:Byte;
mnog:smnog;
vvod:char;
Begin
Writeln('Введите текст');
Writeln('Конец ввода по ENTER');
Num:=0;
While not EOLN do
begin
Inc(Num);
Read(Vector[Num]);
end;
Readln;
writeln('введите множество согласных букв');
writeln('Конец ввода по ENTER');
mnog:=[];
while not eoln do
begin
read(vvod);
include(mnog,vvod);
end;
readln;
NumBeg:=Num;
I:=0;
Repeat
Inc(I);
If Vector[i] in mnog
then
begin
For J:=Num downto I+1 do
vector[j+1]:=vector[j];
Vector[I+1]:=vector[i];
Inc(Num);
end;
Until I=Num;
If NumBeg<>Num
then
begin
Writeln('Массив после утроения согласных');
For I:=1 to Num do
Write(Vector[i],' ');
Writeln;
end
else
Writeln('Данные согласные не содержатся в тексте');
Readln
End.

[NoHeart]

У меня она даже не запускается=)