Вывести на экран одномерный массив из 12 элементов.перевести из одномерного массива в двумерный элементы построчно(в 3 строки) паскаль

Var a, b, c, i :integer;   
s :array[1..12] of integer;   
p :array[1..4,1..3] of integer;
begin
for i:=1 to 12 do read (s[i]);
i:=1;
for a:=1 to 4 do 
 for b:=1 to 3 do 
  begin  p[a,b]:=s[i]; 
  i:=i+1; 
  end;
for a:=1 to 4 do 
 begin 
 for b:=1 to 3 do  write (p[a,b],' '); 
 writeln; 
 end;
end.

P.S. Надеюсь на благодарность и лучший ответ.