Символьный массив.Преобразование

 const N=7;
 
  Type
  TMas = array[1..7] of char;
  Pmas = ^TMas;
 TMas2 = array[1..7] of char;
  Pmas2 = ^TMas2;
 
 
var
  Form1: TForm1;
  a : Pmas;
b : Pmas;
   j,i,t: integer;
implementation
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
GetMem(a,N*sizeof(char));
GetMem(b,N*sizeof(char));
for i := 1  to N-1 do begin
a[i]:=StringGrid1.Cells[i-1,0];
a[i]:=b[i];
StringGrid2.Cells[i-1,0]:=b[i];  
 
 end;
 
 
 
FreeMem(a,N*sizeof(char));
FreeMem(b,N*sizeof(char));
end;

const
  N = 8;
 
type
  TMas = array of String;
 
var
  Form1: TForm1;
  a : TMas;
  b : TMas;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  I, J : Integer;
begin
  SetLength(a, N);
  SetLength(b, N);
  for I := 0  to N -1 do
  begin
    a[I] := StringGrid1.Cells[I, 0];
    b[I] := a[I];
    StringGrid2.Cells[I, 0] := b[I];  
  end;
end;

  TMas = array[1..1] of string;
  Pmas = ^TMas;
var
  Form1: TForm1;
  a : Pmas;
....
GetMem(a,N*sizeof(string));

var
  Form1: TForm1;
  a : array[0..7]of char;
   j,i,k: integer;
   t:char;
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin   //Считывание в массив из таблицы символов.
 for I := 0  to 7 do
      begin
      a[i]:=(StringGrid1.Cells[I,0])[1]; //Переносим только 1 символ,если более.
 end;
 
j:=0;      //Обнуление счетчика.
for I := 0  to 7 do begin
        if a[i] in ['0'..'9'] then begin //Проверка на совпадение в промежутке значений(от 0 до 9)
        j:=j+1;      //Подсчет количесва совпадений
        end;
end;
 
k:=0;    //Обнуление счетчика.
for I := 0  to 7 do begin
        if a[i] in ['0'..'9'] then begin //Проверка на совпадение и перенос в начало таблицы 2 всех цифр.
        StringGrid2.Cells[k,0]:=a[i];
        k:=k+1;        //Необходимо для последовательного переноса.
        end
else
        begin  //здесь смотрим,у нас было например 4 цифры,значит далее идут остальные символы
        StringGrid2.Cells[j,0]:=a[i];
        j:=j+1;  //делает перенос символов последовательным после опред.кол-ва цифр.
        end;
end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 7 do
begin
j:=Random(100); //Генерация случайных чисел до 100.
StringGrid1.Cells[i,0]:=chr(j); //Перевод этих чисел в с-ме ASCII в символы.Заполнение таблицы 1.
end;
end;
end.