Проверьте код: Cоставить процедуру, которая в заданном массиве С заменяет нулями элементы, которые больше значения функции

[Xo6ut]

Проверьте пожалуйста код.
Составить программу по заданному условию. Первая часть условия является заданием на разработку процедуры для функции f или пару функций(f1,f2). Условие 2ой части задания предполагает обязательное использование разработанной процедуры. В большинстве случаев исходным данным является квадратная матрица А.
А вот и само условие:Cоставить процедуру, которая в заданном массиве С заменяет нулями элементы, не превышающие ,(здесь фотка с формулой, она во вложениях) где n кол-во эл в массиве С, а B некоторая величина. Задать в качестве f синус и B=5, применить процедуру к каждому столбцу матрицы А, подсчитав при этом как изменится средн арифметическое матрицы А.
А вот сам код:

uses
  SysUtils;
  type tmas=array[1..15,1..15] of Real;
      dmas=array[1..15] of Real;
      ft=function(x:Real):real;
var A:tmas;
    i,j,la,y,g:Integer;
    sr,str,k:Real;
    D,D1:dmas;

    Function func(x:Real):Real;
  var ff:Real;
  begin
    ff:=sin(x);
    func:=ff
  end;
procedure zamena(C:dmas;f:ft;l:Integer;B:Real;var p:dmas);
var i:Integer;
S:real;
begin
  s:=0;
  for i:=1 to l do s:=s+f(c[i]);
  for i:=1 to l do if c[i]<=((1/B)*s) then p[i]:=0;
  for i:=1 to l do if c[i]>((1/B)*s) then p[i]:=c[i];
end;
begin
  Write('vvedite velichinu sravnenia:'); Readln(K);
  Writeln('vvedite razmer matritsi L');
  read(la);
  Writeln('vvedite matritsu');
  for i:=1 to la do for j:=1 to la do read(A[i,j]);
  sr:=0;
    for i:=1 to la do for j:=1 to la do sr:=sr+A[i,j];
    sr:=sr/sqr(la);
    y:=1;
  for j:=1 to la do for i:=1 to la do
  begin
    begin
      for g:=1 to la do
      D[g]:=A[y,g];
    end;
    zamena(D,func,la,k,D1);
    A[i,j]:=D1[j];
    y:=y+1;
  end;
  str:=0;
  Writeln('izmenennaia matritsa:');
  for i:=1 to la do for j:=1 to la do write(A[i,j]:2:2,'  ');
  for i:=1 to la do for j:=1 to la do str:=str+A[i,j];
  str:=str/sqr(la);
  Writeln('izmenenie sr.arifmeticheskogo:  ',(sr-str):2:2);
  read(i);



  { TODO -oUser -cConsole Main : Insert code here }
end.

[Xo6ut]

Может кто проверить?

[Streletz]

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

Может кто проверить?

Простите, а что именно проверить?
Синтаксис? Все синтаксические ошибки Вам выдаст среда.
Как программа выполняет вычисления: по формуле или нет? Простейший способ:
Выполните по ней расчёт для любых исходных данных, например, в Excel. После того, как получите результат, введите эти же исходные данные в Вашу программу и сравните полученные результаты.