Вычислить значение выражения

program prog8;
uses crt;
type
Tmas=array[1..100] of integer;
var
a,k,t,b,i:integer;
x,y:Tmas;
F:real;
function Summa(L:byte;Mas:Tmas):real;
var
S:real;
i:byte;
begin
S:=0;
for i:=1 to L do
S:=S+Mas[i];
Summa:=S;
end;
function Step(Osn:integer; p:integer):real;
var 
i:byte;
St:real;
begin
St:=Osn;
for i:=2 to p do
St:=St*Osn;
Step:=St;
end;
 begin
 Write('t=');
 readln(t);
 Write('k=');
 readln(k);
 writeln('Введите числа t');
 for i:=1 to t do
 read(x[i]);
 readln;
 Writeln('Введите числа k');
 for i:=1 to k do
 read(y[i]);
 readln;
 Write('a=');
 readln(a);
 write('b=');
 readln(b);
 F:=Sqrt(Step(a,k+2)+Step(b,t-2))/(Summa(t,x))+Summa(k,y); - ошибка здесь не могу ее исправить
 Write('F=',F:2:5);
 readln;
 end.

program prog8_2;
uses crt;
type
Tmas=array[1..100] of integer;
var
a,b,t,k:integer;
x,y:Tmas;
F:real;
 
//----------------------------------------------
procedure Vvod(Var Dl:integer; var mas:Tmas);
var
i:integer;
begin
Write('Длина этого массива: ');
readln(Dl);
Writeln('Введите элементы:');
for i:=1 to Dl do
readln(mas[i]);
end;
//----------------------------------------
function Step(Osn:integer; p:integer):real;
var
i:integer;
St:real;
begin
St:=Osn;
for i:=2 to p do
St:=St*Osn;
Step:=St;
end;
//-------------------------------------------------------------
function Summa(dlina:integer; massiv:Tmas; g:integer;Osnova,pokaz:integer):real;
var
i:integer;
S:real;
st:real;
//Osn,p:integer;
begin
st:=step(Osnova,pokaz);
S:=0;
for i:=1 to dlina do
s:=s+st*massiv[i]-g;
Summa:=S;
end;
//-------------------------------------------------------------------
 
begin
Write('a=');
readln(a);
write('b=');
readln(b);
write('t=');
readln(t);
write('k=');
readln(k);
vvod(t,x);
vvod(k,y);
f:= (Sqrt(Step(a,k+2))+Step(b,t-2))/(summa(t,x,b,a,k))+summa(k,y,a,b,t);
writeln('F=',F:2:2);
end.