Developing.ru

подскажите как лучше вывести массивы на экран
[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]