Var gr1:tstringgrid; procedure TForm1.Button1Click(Sender: TObject); var x, y, z:integer; tmpstr : array[0..100] of string; begin with gr1 do begin for x:= 1 to rowcount -1 do for y := 1 to rowcount-x do if strtoint(cells[1, y]) > strtoint(cells[1, y+1])...