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

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.

Тоже БСК.

Program number1;vara1,b1,c1,a2,b2,c2,f1,f2,s,t,summa:real;procedure efka(x1,y1,z1,x2,y2,z2,k1,k2,es,te:real);beginx1:=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; beginwriteln('s,t');readln(s,t);efka(a1,b1,c1,a2,b2,c2,f1,f2,s,t);summa:=f1+f2;writeln('Результат', summa);end.Нужно было переменную объявить в real и в конце место readln нужно было writeln