How, instead of the standard output of an array on the screen, display an array in a TMemo field?

Question

Pascal

Please help me rewrite the code in such a way as to get the output of the array in the TMemo field.
The code:

for i:=1 to n do begin
    for j:=1 to n do write(A[i,j]:3);
    writeln;
end;

I did like this, but it doesn't work:

for i:=1 to n do begin
    for j:=1 to n do MemoMS.Text:=MemoMS.Text + IntToStr(A[i,j]:3);
    MemoMS.Text:=MemoMS.Text + #13#10;
end;

Answer 1

var 
  str: string;
begin
  str := '';
  for i := 1 to n do begin
    for j := 1 to n do begin
      str := str + '   ' + IntToStr(A[i, j]);
    end;
    MemoMS.Lines.Add(str);
    str := ''; 
  end;
end;