[HunteRus]

Ты программу не читаемо пишешь, пример правильного написания:

Код:

procedure TForm1.Button3Click(Sender: TObject);
var h,min,s,ms:word;
     m,i:integer;
begin
  Label10.Caption:=Floattostr(time);
  for m:=1 to 100000 do
    for i:=0 to high(A) do tmpA[i]:=0; // заполняем массив нулями
  for i:=min to n do 
//begin
    A[i]:=A[i]+1;  Одно действие в форе, begin и end не обязательны 
//end;

// устанавливаем значение в правильную позицию

  index:=min;
  for i:=min to high(A)-1 do
  begin
    for j:=0 to A[i]-1 do 
    begin
      A[index]:=i;
      index:=index+1;
    end;
  end;

  repeat
    priz:=false;
    for i:=1 to n-1 do
    if a[i]>a[i+1] then
    begin
      buf:=a[i];
      a[i]:=a[i+1];
      a[i+1]:=buf;
      priz:=true;
    end;
    for k:=1 to n do until priz=false;
  for i:=1 to n do
  StringGrid2.Cells[i-1,0]:=inttostr(a[i]);
  DecodeTime(Time-Strtofloat(Label10.Caption),h,min,s ,ms);
  Label10.Caption:='по возрастанию '+Inttostr(s)+' '+'с'+' '+Inttostr(ms)+' '+'мс';
end;