Решить. дана матрица . вывести на экран первый и последний столбцы.

Var a: array [1..5,1..3] of integer;
i,j,n,m: integer;
begin
for i:=1 to n do
    for j:=1 to m do
read (a[i,j]);
for j:=1 to m do begin
write (a[1,j]) ;
write (a[n,j]) ;
end;
end.