Решить задачку в паскаль abs "дан двумерный массив,состоящий из 2 строк

Var
a:array[1..2,1..3] of integer;
i,t,j:integer;
begin
writeln(До:);
for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j], );
end;
writeln;
end;
for j:=1 to 3 do
begin
t:=a[1,j];
a[1,j]:=a[2,j];
a[2,j]:=t;
end;
writeln(После:);
for i:=1 to 2 do
begin
for j:=1 to 3 do
write(a[i,j], );
writeln;
end;
end.
Введение чисел в массиве:
for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j], );
end;
writeln;
for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
read(a[i,j])
end;
end.