Delphi упорядочить элементы массива

[NEFERA]

Задание: В массиве В(n) упорядочить все элементы в порядке возростания их значений.
Вот этот массив в виде консольного приложения, подскажите пожалуйста, как правильно вывести его с помощью StringGrid?

program Project1;

{$APPTYPE CONSOLE}
const
N=10;
var
B:array[1..N]of integer;
i,j,t:integer;
begin
Randomize;
for i:=1 to N do
B[i]:=Random(50);
for i:=1 to N do Write('B[',i,']=',B[i]);
writeln;
for j:=1 to N-1 do
For i:=1 to N-j do
if B[i]>B[i+1]then
begin
t:=B[i];
B[i]:=B[i+1];
B[i+1]:=t;
end;
for i:=1 to N do Write(' B[',i,']=',B[i]);
Readln;
end.

[RUSt88]

Write('B[',i,']=',B[i]);
этот код нужно заменить
на это
StringGrid1.Cells[1, 1] := B[i];
если нужно, то преобразуем число в строку IntToStr(B[i])