Структура модулей Pascal

Использование модулей.
Создадим модуль, для вычисления среднего арифметического значения элементов массива.
Unit SrArifm;
Interface
Const n = 10;
Type mas = array[1..n] of real;
Procedure SrArif (x: mas; var sr:real);
Implementation
Procedure SrArif (x: mas; var sr:real);
Var
i: integer;
begin
sr:=0;
for i:=1 to n do sr:=sr+x[i];
sr:=sr/n;
end;
end.
Текст этого модуля следует поместить в файл SrArifm.pas. Его можно откомпилировать, создав TPU-файл, после чего программе станут доступны процедуры из новой библиотеки.
Составим программу для нахождения разности средних арифметических значений двух вещественных массивов.
Program Raznost;
Uses SrArifm;
Var
a,b:mas;
i:integer;
dif, sr_a, sr_b : real;
begin
for i:=1 to n do read (a[i]);
for i:=1 to n do read (b[i]);
SrArif (a, sr_a);
SrArif (b, sr_b);
Dif:=sr_a — sr_b;
Writeln (dif);
End.