[pageYK@fb]

opel431, Методов хватает, работает не так как надо.

Код

Код:

var 
  i,l,value:integer;
  ts:TStringList;
  s: string;

begin  ts := TStringList.Create;                    

  try
    ts.LoadFromFile('1.txt');
    ts.Delimiter := '|';
    for l:=0 to ts.Count-1 do
      begin
        ts.DelimitedText := ts.Strings[l];
        value := StrToInt(ts.Strings[2]);
        while value>394 do
        begin
         value := value-394;
         ts.Strings[2]:='394';
         ts.SaveToFile('2.txt');
        end;

      end;

      finally
    ts.Free;
  end;

SaveToFile по итогу, возвращает в файл текст уже разбитый на подстроки:
"1
325230ш5ш3
438
Лондон
ЛОНДОН,
ВЕЛИКОБРИТАНИЯ".

И как оперировать с несколькими строками для их сортировки так мне осталось неясным.