пожалуйсто напишите праграму и описанием(паскаль)

[cegthghjuth]

написать програму с использованием функции поиска min и функции поиска max элементов в одномерном массиве
найти значение выражения
y= (x max- x min)(первая строка матрицы) + (x max - x min)(вторая строка матрицы) + ...+(x max- x min)(эная строка матрицы)

где x max i ; x min i
оотвецтвенно эллементы i-ой строки вещественной матрицы c(N,M)
N и M задаются из ввода

[Филантроп]

type vector = array [1..100] of integer;
type matrix = array [1..100] of vector ;
var a:matrix;
j,k,m,n,y:integer;
function F_max(x:matrix;cs:integer;ns:integer):integer;
var i:integer;max:integer;
begin
max:=x[ns,1];
for i:=2 to cs do
  if x[ns,i]>max then max:=x[ns,i];
  F_max:=max;
end;
function F_min(x:matrix;cs:integer;ns:integer):integer;
var i:integer;max:integer;
begin
max:=x[ns,1];
for i:=2 to cs do
  if x[ns,i]<max then max:=x[ns,i];
  F_min:=max;
end;
begin
readln(n);
readln(m);
for k:=1 to n do begin
for j:=1 to m do begin
a[k,j]:=random(m*n);
write(a[k,j]:4);
end;
writeln;end;
y:=0;
for k:=1 to n do
y:=y+f_max(a,m,k)-f_min(a,m,k);
Writeln('y=',y);
readln;
end.