Паскаль. Преобразование массива

[Женька Good]

Необходимо преобразовать одномерный массив в двумерный с помощью процедур и функций.
Вот я написал формирование массива, а как его преобразовать не знаю...

Program Dz;
Uses Crt;
type mas=array[1..9] of integer;
     Var a:mas;

Procedure form(var x:mas);
 Var i:integer;
 begin
 For i:=1 to 9 do
 x[i]:=Random(100);
end;

Procedure Print(x:mas);
Var i:integer;
Begin
For i:=1 to 9 do
Write(x[i]:4);
end;

begin
CLRSCR;
form(a);
Writeln('Massiv A: ');
Print(a);
readln;
end.

Помогите пожалуйста.