Вставить пробел до и после каждой цифры текста

[LittleStudent]

Вот что у меня получилось.
Объясните плз что не так?

Program InsertSpace;
Const
  Bykva: Set Of Char=['a'..'z','A'..'Z'];
  Cif  : Set Of Char=['0'..'9'];
  Space: Set of Char=[' '];
Type
  Vector=array[1..20] of integer;
Var
  V:Vector;
  N,Nb,i,j:byte;
Begin
  Writeln('Vvedite ne bolee 10 elementov');
  N:=0;
  While not EOLN do
    begin
      inc(n);
      read(V[n]);
    end;
  readln;
  Nb:=N;
  i:=0;
  Repeat
    Inc(i);
    If V[i] in Cif
      then
        begin
          For j:=N downto i+1 do
          V[j+1]:=V[j];
          V[i+1]:=Space;
          inc(N);
        end;
  Until i=N;
  If Nb<>N
    then
      Begin
        Writeln('Massiv posle vstavki',N-Nb,' space');
        For i:=1 to N do
          Write(V[i],' ');
        Writeln;
      end
    else
      writeln('Cifr net. Massiv ne izmenen');
 readln;
End.

Если возможно то исправте.

[GetMax]

Vector=array[1..20] of integer;

Это массив из целых чисел. Интересно, как вы собираетесь в него вставлять пробел. Кроме того в вашем коде пробел вставляется только после цифры. А где же пробел до цифры? И даже после всего этого у вас получаются лишние пробелы. Вот так, пожалуй, получше будет

Const
  Cif  : Set Of Char=['0'..'9'];
  Space:Char=' ';
Type
  Vector=array[1..20] of char;
Var
  V:Vector;
  N,Nb,i,j:byte;
Begin
  Writeln('Vvedite ne bolee 10 elementov');
  N:=0;
  While not EOLN do
    begin
      inc(n);
      read(V[n]);
    end;
  readln;
  Writeln(N);
  Nb:=N;
  i:=0;
  Repeat
   Inc(i);
    If (V[i] in Cif) then
    Begin
      Inc(N);
      For j:=N-1 downto i+1 do
      V[j+1]:=V[j];
      V[i+1]:=Space;
      Inc(N);
      For j:=N-1 downto i do
      V[j+1]:=V[j];
      V[i]:=Space;
      Inc(i)
    End;
  Until Not i  < Nb;
  If Nb<>N
    then
      Begin
        Writeln('Massiv posle vstavki',N-Nb,' space');
        For i:=1 to N do
          Write(V[i]);
        Writeln;
      end
    else
      writeln('Cifr net. Massiv ne izmenen');
 readln;

P.s.А со строками не легче это все сделать было?

[LittleStudent]

Спасибо))))))))
А со строками нельзя(
В том и прикол был((
У нас препод жестокий