Пожалуйста решить задачу в программе Паскаль АВС. Дан двумерный числовой массив, состоящий из 2 строк и 3 столбцов, необходимо первую строку поменять со второй и вывести получившиеся на экран. (вместо первой строки будет вторая, а вместо второй первая)

var a,b:array[1..2,1..3]of integer;i, j:byte;Beginfor i:=1 to 2 dofor j:=1 to 3 do readln(a[i,j]);for i:=1 to 2 dobeginfor j:=1 to 3 do write(a[i,j]:3);writelnend;for i:=1 to 2 dofor j:=1 to 3 doif i = 1 then b[i,j]:=a[2,j] elseb[i,j]:=a[1,j];for i:=1 to 2 dobeginfor j:=1 to 3 do write (b[i,j]:3);writelnend;readlnEnd.write