Дан двумерный массив. Вывести на экран все элементы второго столбца массива — Pascal(Паскаль)

uses crt;
var
a:array[1..100,1..100]of integer;
i,j,m,n:integer;
begin clrscr;
write('m=');
read(m);
write('n=');
read(n);
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  read(a[i,j]);
 end;
writeln;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j],'  ');
  writeln;
 end;
writeln;
writeln('elementy 2-ogo stolbca:');
for i:=1 to m do
for j:=2 to 2 do
write(a[i,2],'  ');
readkey;
end.