Паскаль. Преобразования строк.

Var     St: string; z:string[17]; x:string[2];
    i: integer;
Begin
    Write('введите строку текста - St');
    Readln(St);
    z:='0123456789IVXLCDM';
    i:=1;
    while i<=length(st)-1 do
    begin
        x:=copy(st,I,2);
        if (x[1]=x[2]) and (pos(x[1],z)<>0) then
        begin
            delete(st,i,2);
            insert('две',st,i);
            i:=i+1;
        end;
        i:=i+1;
    end;
    writeln('преобразованная строка ', st);
End.

const
  Z = [
    '0'..'9',
    'I', 'V', 'X', 'L', 'C', 'D', 'M',
    'i', 'v', 'x', 'l', 'c', 'd', 'm'
  ];
  A = ['.', ',', ':', ';', '!', '?'];
Var
  S : string;
  i, Len : integer;
Begin
  Writeln('Введите строку текста:');
  Readln(S);
  Len := Length(S);
  i := Len;
  while i >= 1 do begin
    //Вставка пробелов.
    if (i < Len) and (S[i] in A) and (S[i + 1] <> ' ') then begin
      Insert(' ', S, i + 1);
    end;
    //Замена соседних одинаковых цифр.
    if (i < Len) and (S[i] = S[i + 1]) and (S[i] in Z) then begin
      Delete(S, i, 2);
      Insert('две', S, i);
    end;
    i := i - 1;
  end;
  Writeln('Преобразованная строка:');
  Writeln(S);
  Readln;
End.