Delphi - вывод информацыи

[betman]

подскажите как лучше вывести массивы на экран
[HTML]program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;

var
m:array[1..50] of integer;

i:integer;
begin
for i:=1 to 50 do
begin
m:=i+1;
writeln ('[', i,']=', m);
end;
for i:=1 to 50 do
if (odd(m)) then
m:=m*2
else
m:=m;
for i:=1 to 50 do
writeln ('[', i,']=', m);
readln;
end.[/HTML]

[Хыиуду]

for i:=1 to 50 do writeln ('[', i,']=', m);

Я бы сделал так:
for i:=1 to 50 do
begin
write ('[', i,']=', m,' '); if i mod 10=0 then writeln;
end;