Работа с процедурами. Паскаль

[Женька Good]

Есть недоработанная программа, в которой необходимо сформировать одномерный массив, затем его преобразовать в двумерный, а затем нужно найти элементы стоящие на главной диагонали.
Помогите доработать, пожалуйста.

Моя программа выполняется, но результатов на экране нет...
вот то что у мя есть:

Program Xmelez_the_last;
Uses CRT;
Type mas1=array[1..25] of real;
     mas2=array[1..5,1..5] of real;

{Procedure1:formirovanie odnomernogo massiva}
Procedure form_o(Var a:mas1);
Var i:integer;
begin
For i:=1 to 25 do begin
a[i]:=random(25);
Write(a[i]:5:0);
end;
end;

{Procedure2: Preobrazovanie iz odnomernogo v dvumerny massiv}
Procedure form_dv(d:real; Var a:mas1; Var W:mas2);
Var i,j:integer;
begin
d:=a[i];
for i:=1 to 5 do
For j:=1 to 5 do
W[i,j]:=d;
for i:=1 to 5 do begin
for j:=1 to 5 do
Write(W[i,j]:5:0);
Writeln;
end;
end;

begin
CLRSCR;
readln
end.

[Xardas]

А процедуры кто вызывать-то будет??? Сами по себе они не выполнятся

[Женька Good]

Сообщение от Xardas

А процедуры кто вызывать-то будет??? Сами по себе они не выполнятся

Помогите, как вызвать процедуры?

[Mad_Cat]

Помогите, как вызвать процедуры?

О великие и могучие процедуры ПРИДИТЕ!!!(и тереть экран)

var x:mas1;y:mas2;
z:real;
begin
CLRSCR;
form_o(x);
form_dv(z,x,y);
readln
end.