Символьные строки (Delphi)

[Angel G G]

Здравствуйте! Подскажите, пожалуйста.
В тексте, состоящем из строк вида "иванов и.и.1945инженер5детей" вставить недостающие пробелы для удобства.
Я сделала, чтобы отсутствовали пробелы перед знаками препинания, и присутствовали после них. Как разделить пробелами слова и числа???

type
  arofstr = array of string;
var
  f: TextFile;
  fm : string;
  i: integer;
  Strings:arofstr;

procedure Obrabotka(var Strings: arofstr);
var i:integer;
begin
 for i:=0 to length(Strings)-1 do
  begin
    Strings[i]:= Trim(Strings[i])+ ' ';

    Strings[i]:= StringReplace(Strings[i], ' .', '.', [rfReplaceAll]);
    Strings[i]:= StringReplace(Strings[i], ' ,', ',', [rfReplaceAll]);
    Strings[i]:= StringReplace(Strings[i], ' :', ':', [rfReplaceAll]);
    Strings[i]:= StringReplace(Strings[i], ' ;', ';', [rfReplaceAll]);

    Strings[i]:= StringReplace(Strings[i], '.', '. ', [rfReplaceAll]);
    Strings[i]:= StringReplace(Strings[i], ',', ', ', [rfReplaceAll]);
    Strings[i]:= StringReplace(Strings[i], ';', '; ', [rfReplaceAll]);
    Strings[i]:= StringReplace(Strings[i], ':', ': ', [rfReplaceAll]);

    Strings[i]:= StringReplace(Strings[i], '  ', ' ', [rfReplaceAll]);
  end;
end;

begin
  Write(Oem('Введите имя текстового файла...'));
  ReadLn(fm);
  WriteLn;

  AssignFile(f,fm);
  {$I-}
  Reset(f);
  if not(IOresult=0) then
  begin
    WriteLn(Oem('Ошибка при открытии файла...'));
    WriteLn(Oem('Нажмите любую клавишу для завершения программы...'));
    ReadKey;
    Halt;
  end;

  i:=0;
  while not eof(f) do
  begin
    ReadLn(f);
    i:=i+1;
  end;
  Close(f);

  SetLength(Strings,i);
  i:=0;
  Reset(f);

  while not eof(f) do
  begin
    ReadLn(f, Strings[i]);
    WriteLn(Strings[i]);
    i:=i+1;
  end;
  CloseFile(f);
  {$I+}

  WriteLn;
  Writeln(Oem('Обработанный текст:'));


  Obrabotka(Strings);

  for i:=0 to length(Strings)-1 do
  WriteLn(Strings[i]);

  WriteLn;
  WriteLn(Oem('Спасибо за использование программы!'));
  Readkey;

end.

[Volt]

если слова каждый раз разные то слова от слов ни как а вот цифры можно

[Сид]

Отслеживать переход с текста на числа и обратно. Вставлять в эти места пробелы.

[Angel G G]

Сид, а как это сделать?

[Volt]

ну что то типа этого

var s:string; i:integer;
begin
s:='р1у';
i:=2;
if (s[i+1]  in ['А'..'Б','а'..'б']) then insert(' ', s, i+1);
if (s[i-1]  in ['А'..'Б','а'..'б']) then insert(' ', s, i);
end;

т.е если s[i] число и если перед ним s[i+1] не число а буква то вставляем пробел аналогично перед ним

[Angel G G]

Спасибо за помощь!
Но... Наверное не суждено мне справиться с этой задачей... Не получается

[psycho-coder]

Сообщение от Volt

ну что то типа этого

var s:string; i:integer;
begin
s:='р1у';
i:=2;
if (s[i+1]  in ['А'..'Б','а'..'б']) then insert(' ', s, i+1);
if (s[i-1]  in ['А'..'Б','а'..'б']) then insert(' ', s, i);
end;

т.е если s[i] число и если перед ним s[i+1] не число а буква то вставляем пробел аналогично перед ним

)) А для примера приведенным ТС этот код поставит пробелы между каждой буквой

Вот мой вариант (вставка пробелов в строке S) если шаблон будет одинаковый, т.е. такой какой привели Вы.

procedure Processing(var S: String);
var
  i:  Integer;
begin
  for i := 1 to Length(S) do
    if ((s[i] in ['0'..'9']) and not (s[i+1] in ['0'..'9'])) or 
       (not (s[i] in ['0'..'9']) and (s[i+1] in ['0'..'9'])) then
       Insert(#32, S, i+1);
end;

P.S. писал сюда, могут быть ошибки

[Volt]

procedure TForm1.Button1Click(Sender: TObject);
var stroka:string; i:integer;

procedure addprobel;
begin
inc(i);
if (stroka[i] in ['0'..'9']) then
begin
if (stroka[i+1]  in ['A'..'Z','a'..'z','А'..'Я','а'..'я']) then insert(' ', stroka, i+1);
if (stroka[i-1]  in ['A'..'Z','a'..'z','А'..'Я','а'..'я]) then insert(' ', stroka, i);
end;
if i<=length(stroka) then   addprobel;
end;

begin
stroka:=Edit1.Text;
i:=0;
addprobel;
showmessage(stroka);
end;

[Angel G G]

Спасибо Вам большое, смысл уловила!
Выдает ошибку о несоответствии типов. Так что я еще посижу с этой задачей....