Паскаль. Процедуры

[Женька Good]

Есть программа, где необходимо выполнить ряд действий, одним из которых является преобразование одномерного массива в двумерный (2 процедура), но у меня преобразование получается в столбик, а не в виде матрицы, помогите плз..
Вот моя программа:

Program last;
Uses CRT;
Type mas1=array[1..25]of Integer;
     mas2=array[1..5,1..5] of Integer;
Var ap:mas1;
    wp:mas2;
    m:integer;
    
{Procedure1: Formirovanie odnomernogo massiva}
Procedure Form_o(m:integer; Var a:mas1);
Var i:integer;
begin
For i:=1 to m*m do begin
a[i]:=random(25);
write(a[i]:5);
end;
end;

{Procedure2: Preobrazovanie}
Procedure Form_dv(m:integer; Var a:mas1; Var W:mas2);
Var i,j,bd,e:integer;
begin
bd:=0;
For i:=1 to m do
begin
for j:=1 to m do
begin
e:=a[j+i+bd-1];
w[i,j]:=e;
end;
bd:=bd+m-1;
end;
Writeln('Dvumernyi massiv');
For i:=1 to m do
begin
For j:=1 to m do
begin
Writeln(w[i,j]:5);
end;
end;
end;

{Procedure3:Nahodim summu naibolshih elementov kazdogo ryada matrici}
Procedure find(m:integer; Var w:mas2);
Var i,j,max,sum:integer;
begin
sum:=0;
For i:=1 to m do
begin
  max:=W[i,1];
  For j:=1 to m do
    If W[i,j]>max then
      Max:=w[i,j];
  Sum:=sum+max;
end;
write('sum = ', sum);
end;


Begin
Clrscr;
Writeln('Vvedite chislo: ');readln(m);
Form_o(m,ap);
Form_dv(m,ap,wp);
find(m,wp);
Readln
end.

[Mad_Cat]

Writeln('Dvumernyi massiv');
For i:=1 to m do
begin
For j:=1 to m do
begin
Write(w[i,j]:5);
end;
writeln;
end;