Объясните мою ошибку

program z1;
Uses Crt;
const c=3;
const a=1;
const h='*';
var
y: string;
text:string;
v,i,count:integer;
begin
ClrScr;
writeln('Введите длину слова при которой первые 3 буквы изменятся на *');
readln(v);
writeln('Введите текст');
readln(text);
count:=0;
i:=0;
while i<length(text) do
if (text[i]<>' ') then
begin
     i:=i+1;
     count:=count+1;
end
else
begin
     if count=v then
     begin
          y:=text[count];
          delete(y,a,c);
          Insert(h,y,a); 
end
else
count:=0;
end;
writeln(text);
readln;
end.

Uses Crt;
var text:string;
    v,i,j,count:integer;
begin
ClrScr;
writeln('Введите текст из слов, разделенных пробелами');
readln(text);
repeat
writeln('Введите длину слова при которой первые 3 буквы изменятся на *');
readln(v);
until v>2;
text:=' '+text;{добавим пробел в начало для удобства}
i:=1;
while i<length(text) do
if (text[i]<>' ')and(text[i-1]=' ') then{если е пробел и перед ним пробел, новое слово}
 begin
  j:=i; {определим его длину}
  count:=0;
  while(j<=length(text))and(text[j]<>' ') do
   begin
    inc(count);
    inc(j);
   end;
  if count=v then {если равна заданной}
  for j:=i to i+2 do {первые  символа заменим на *}
  text[j]:='*';
  i:=i+count; {перешагнем через слово}
 end
else inc(i);{пропустим пробелы}
delete(text,1,1);{удалим первый пробел}
writeln(text);
readln;
end.