Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION

type
  Tmas = array[1..100] of real;
 
var
  a, c, n, m, i, k: byte;
  X, Y: Tmas;
  F, z: Real;
 
function Summa(Dlmas: byte; Mas: Tmas): Real;
var
  Sum: real; 
  i: byte;
begin
  Sum := 0.0;
  for i := 1 to Dlmas do
    Sum := Sum + Mas[i];
  Summa := Sum;
end;
 
function step(Pok: byte; Osn: byte): real;
var
  i: byte;
  St: real;
begin
  St := Osn;
  for i := 2 to Pok do
    St := St * Osn;
  step := St;
end;
 
begin
  Writeln(' Введите длину первого массива - N ');
  Readln(N);
  Writeln(' Введите длину второго массива - M ');
  Readln(M);
  Writeln(' Введите элементы массива X');
  for i := 1 to N do 
    Read(X[i]); 
  readln;
  Writeln(' Введите элементы массива Y');
  for k := 1 to m do 
    Read(Y[k]); 
  readln;
  Writeln(' Введите a и c '); 
  Readln(a, c);
  Y[k] := y[k] / (a * step(m, c));
  F := (Summa(n, x) + step(n, a) + Summa(M, Y));
  Writeln(' Полученный результат F = ', F);
  readln;
end.

type
  Tmas = array[1..100] of real;
function Massiv(var n:byte;c:char):Tmas;
var i:byte;
begin
repeat
write('Введите размер массива ',c,' от 2 до 100 n=');
readln(n);
until n in [2..100];
writeln('Массив ',c);
for i:=1 to n do
 begin
  result[i]:=5*random;
  write(result[i]:5:2);
 end;
writeln;
end;
 
function Summa(n:byte;a:Tmas;k:real):real;
var i: byte;
begin
result:=0;
for i:=1 to n do
result:=result+a[i]/k;
end;
 
function step(pok:byte;osn:real):real;
var i:byte;
begin
if osn=0 then result:=1
else
 begin
  result:=osn;
  for i:=2 to pok do
  result:=result*osn;
 end;
end;
var x,y:Tmas;
    n,m:byte;
    a,c,f:real;
begin
x:=Massiv(n,'X');
y:=massiv(m,'Y');
repeat
writeln('Введите a<>0 и c ');
readln(a, c);
until a<>0;
f:=Summa(n,x,1)+step(n,a)+Summa(m,Y,a*step(m,c));
writeln(' Полученный результат F = ',f:0:3);
end.