Удалить все согласные буквы, принадлежащие отрезку латиницы, заданному границами

Const
Bukv=['a'..'z','A'..'Z'];
Glasn=['a','e','i','o','u','y','A','E','I' ,'O','U','Y'];
Soglasn=Bukv-Glasn;
Dim=20;
Type
SetOFln=Set of char;
TVector=array[1..dim] of char;
Var
Vector,DelSogl:TVector;
Granica:SetOfLn;
Nach,Kon:Char;
J,I,DlinVect,DelBuk:byte;
Begin
Writeln('Введите не более ',Dim,' латинских букв');
Writeln('Конец ввода по Enter');
DlinVect:=0;
While not EOLN do
Begin
Inc(DlinVect);
Read(Vector[DlinVect]);
End;
Readln;
Writeln('Задайте границы отрезка латиницы');
Readln(Nach,Kon);
Granica:=[nach..kon];
DelBuk:=0;
i:=0;
Repeat
Inc(i);
If Vector[i] in Granica
then
begin
If Vector[i] in Soglasn
then
begin
Inc(DelBuk);
DelSogl[delbuk]:=vector[i];
For J:=i to dlinvect do
Vector[J]:=Vector[J+1];
Dec(i);
Dec(DlinVect);
end;
end
Until i=dlinvect;
If Delbuk=0
then
Writeln('Участок массива не содержит согласных латинских букв')
else
If DlinVect=0
then
Writeln('Массив пуст,так как все буквы в нем удалены')
else
begin
Writeln('Преобразованный массив: ');
For i:=1 to DlinVect do
Write(Vector[i],' ');
Writeln;
write('Удаленные буквы: ');
for i:=1 to DelBuk do
write(DelSogl[i]);
writeln;
end;
Readln;
end.