Написать процедуру к программе

[Рида]

Здравствуйте. Нужна помочь.
Напишите пожалуйста процедуру к этой программе. Любую, можно на одну строчку

Var f,g:file of real;
max,m:real;
i,n:byte;
Begin
Assign(f,'in.dat');Rewrite(f);
write('Введите кол-во компонентов: ');readln(n);
writeln('Исходный файл');
For i:=1 to n do
Begin
m:=random*10;
write(m:5:2);
write(f,m);
End;
Reset(f);
read(f,max);
While not Eof(f) do
Begin
read(f,m);
if m>max then max:=m;
End;
Reset(f);
Assign(g,'out.dat');Rewrite(g);
writeln;
writeln('Max = ',max:0:2);
While not Eof(f) do
Begin
read(f,m);
m:=m/max;
write(g,m);
write(m:5:2);
End;
Close(f);Close(g);
readln;
End.

[Stilet]

Var f,g:file of real;
max,m:real;
procedure aga; var i,n:byte;
Begin
Assign(f,'in.dat');Rewrite(f);
write('Введите кол-во компонентов: ');readln(n);
writeln('Исходный файл');
For i:=1 to n do
Begin
m:=random*10;
write(m:5:2);
write(f,m);
End;
Reset(f);
read(f,max);
While not Eof(f) do
Begin
read(f,m);
if m>max then max:=m;
End;
Reset(f);
Assign(g,'out.dat');Rewrite(g);
writeln;
writeln('Max = ',max:0:2);
While not Eof(f) do
Begin
read(f,m);
m:=m/max;
write(g,m);
write(m:5:2);
End;
Close(f);Close(g);
readln;
begin
aga;
End.

Годится?

[Рида]

Да спасибо большое)
а как это процедура называется?

[Stilet]

Ага
......