[angvelem]

Хватит городить ерунду.

Код:

const
  n = 3;
  m = 2;
var
  a : array [1..N, 1..M] of Char;
  v : array[1..M] of Char;
  i, j : byte;
begin
  for i := 1 to N do
    for j := 1 to M do
      // Здесь берутся данные из мифически заполненного массива a
      // и заполняют StringGrid, но никак не наоборот из StringGrid-а в a.
      StringGrid1.Cells[j, i] :=a[i, j];
  
  for  i:= 1 to N do
    V[i] := a[i,M];

  for i := 1 to N do
    memo1.lines.add(V[i]);
end;