Написать модуль и программу которая его использует

unit
modul;
 
interface
 
const
  nmax = 100;
 
type
  vector = array [1..nmax] of real;
  matrix = array [1..nmax, 1..nmax] of real;
 
function func(x, a, c: real): real;
procedure FindSum(q: matrix; m: integer; var sum: real; var k: integer);
 
implementation
 
function func(x, a, c: real): real;
begin
  if x < a - pi then
    func := a + sin(x - 2.5)
  else
    func := c - x / 2;
end;
 
procedure FindSum(q: matrix; m: integer; var sum: real; var k: integer);
var
  i, j: integer;
begin
  sum := 0;
  k := 0;
  for i := 1 to m do
    for j := 1 to m do
      if (i = j) and (q[i, j] < q[m - 1, m - 1]) then
      begin
        inc(k);
        sum := sum + q[i, j];
      end;
end;
 
begin
end.

uses
modul;
 
var
  g, f: text;
  k, i, j, m: integer;
  a: matrix;
  r, s, x, y, z: real;
 
begin
  assign(f, 'data.txt');
  reset(f);
  read(f, m); //размерность массива
  for i := 1 to m do
  begin
    for j := 1 to m do
    begin
      read(f, a[i, j]);
      write(a[i, j]:5);
    end;
    writeln;
  end;
  close(f);
  findsum(a, m, s, k);
  assign(g, 'out.txt');
  rewrite(g);
  if k <> 0 then
    writeln(g, 'Сумма: ', s)
  else
    writeln(g, 'Нет таких');
  write('Введите x,a,c: ');  
  readln(x, y, z);
  r := func(x, y, z);
  writeln(g, r);
  close(g);    
end.