[maxmaslo]

Код:

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
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;

end.

Админ: Пользуемся тегами, иначе последуют санкции!

буду благодарен за помощь.
запускается, но в стринггрид меняются значения, а в мемо другие символы заносятся