Модуль процедуры и функции в Паскале

[HECTOR.A.]

Помогите создать модуль процедуры и функции для этой прграмы
uses crt;
const n=7;
procedure fak;
var a:array[1..n] of real;
i,f:integer;
begin
f:=1;
for i:=1 to n do
begin
f:=f*i;
a[i]:=(ln(100*i)/ln(10))/f;
write(a[i]:10:6);
end;
readln;
end;
function fn(k:integer):integer;

begin
fak
end.

[Sazary]

HECTOR.A. Не понял, что требуется. У вас же уже написана процедура? Не могли бы уточнить?

[HECTOR.A.]

Мне еще нужно создать модуль

[Sazary]

С модулями особо знаком не был, но, вроде, как-то так:

Unit modl;

interface

const n=7;
procedure fak;

implementation

procedure fak;
 var a:array[1..n] of real;
 i,f:integer;
 begin
 f:=1;
 for i:=1 to n do
  begin
  f:=f*i;
  a[i]:=(ln(100*i)/ln(10))/f;
  write(a[i]:10:6);
  end;
 readln;
 end;

end.