определение количества повторяющихся элементов в строке

[puporev]

дошел до строчки

Дойди до последнего поста.

[s.Creator]

просмотрел все
немного переделал первичный вариант
(правда даже не компилировал - так что могут быть мелкие ошибки)

procedure TMyDlgForm.Button1Click(Sender: TObject);
Var
 F:TextFile;
 MasS:Array[1..100] of String;
 MasN:Array[1..100] of Integer;
 S,CurS:String;
 M,N,Nez,PP:Integer;
 CurOn:Boolean;
begin

 AssignFile(F,'Arc.arc');
 Reset(F);
 ReadLn(F,S);

 CurS:=Copy(S,1,6);
 Delete(S,1,6);
 MasS[1] := CurS; // одно нашли первое
 MasN[1] := 1;
 Nez:=1;

 While S<>'' do
  Begin
   CurS:=Copy(S,1,6);
   Delete(S,1,6);
   CurOn := True;
   For N:=1 to Nez do
    Begin
     If CurS = MasS[N] Then
      Begin   // повтор
       Inc(MasN[N]);
       CurOn := False;
       Break;
      End;
    End;
   if CurOn then
    Begin  // новое
     Inc(Nez);
     MasS[Nez] := CurS;
     MasN[Nez] := 1;
    End;
  End;
 Windows.Beep(700,700);
 Windows.Beep(500,500);
 Windows.Beep(600,600);
 // всего оригинальных  Nez штук
 // сортировка
 repeat
 CurOn := True;
  For M:=1 to Nez - 1 do
  begin
   If MasN[M]<MasN[M+1] Then
    Begin
     CurOn := False;
     // перенос чисел
     PP:=MasN[M];
     MasN[M]:=MasN[M+1];
     MasN[M+1]:=PP;
     // перенос строк
     S := MasS[M];
     MasS[M]:=MasS[M+1];
     MasS[M+1]:=S;
    End;
  end;
 until CurOn;

 For N:=1 to Nez do
   RichEdit1.Lines.Add(MasS[N]+'              '+IntToStr(MasN[N]));

end;

[s.Creator]

Что значит без проверки
немного поправил и отредактировал (но не проверял)
(последняя редакция в 21:30)

[s.Creator]

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

//...
//ищем повторения
for i:=1 to 100 do
for j:=1 to 100 do
//если находим повторение добавляем 1 в соответствующую ячейку
if MasS[i]=MasS[j] then MasN[i]:=MasN[i]+1;

если первое равно третьему то
if MasS[1]=MasS[3] then MasN[1]:=MasN[1]+1;
if MasS[3]=MasS[1] then MasN[3]:=MasN[3]+1;

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

//...
//сортировка
For i:=1 to 99 do
For j:=i+1 to 100 do
If MasN[i]<MasN[j] Then
    Begin
     PP:=MasN[i];
     MasN[i]:=MasN[j];
     MasN[j]:=PP;
    End;

Я думаю MasS тоже надо сортировать

[puporev]

Я понятия не имею что нужно автору.

[s.Creator]

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

Я понятия не имею что нужно автору.

Ну что ему надо и я не понял (вряд ли в реале у него такая строка в проге, хотя все может быть)

но пытается он вывести все встречающиеся значения (строки по 6 символов) с количеством повторений, отсортированные по количеству повторений (как я понял)