Помогите пожалуйста отыскать ошибкуProgram number1;var a1,b1,c1,a2,b2,c2,f1,f2,s,t:real;

Помогите пожалуйста отыскать ошибку

Program number1;
var
a1,b1,c1,a2,b2,c2,f1,f2,s,t:real;
summa:integer;
procedure efka(x1,y1,z1,x2,y2,z2,k1,k2,es,te:real);
begin
x1:=te;
y1:=-2*es;
z1:=1.17;
x2:=2.2;
y2:=te;
z2:=es-te;
k1:=(2*x1-y1-sin(z1))/(5+z1);
k2:=(2*x2-y2-sin(z2))/(5+z2);
end;
begin
writeln('s,t');
readln(s,t);
efka(a1,b1,c1,a2,b2,c2,f1,f2,s,t);
summa:=f1+f2;
readln('Итог', summa);
end.