Ayuda con orden de Stringgrid.

[Josephjht]

quien me ayuda a pasar este codigo a c++ builder, no idea.

// Tipos Básicos:
type
vectorM=array[1..100] of char;

//Variables Globales:
var
M: integer;
vec1: vectorM;

procedure ordenavector( var vec1:vectorM;
m: integer);
var

i,j: integer;
c: char;
begin
for i:=1 to (m-1) do
begin
for j:=(i+1) to m do
begin
if vec1[i]> vec1[j] then
begin
c:=vec1[i];
vec1[i]:=vec1[j];
vec1[j]:= c;
end;
end;
end;

end;


en un stringgrid para ordenar por cedula los datos de un individuo