Написать функцию сложения двух чисел - Turbo Pascal

//в цикле
function sloz_1(a,b:integer):integer;
var i,k,s:integer;
begin
if b>0 then k:=1
else k:=-1;
s:=a;
for i:=1 to abs(b) do
s:=s+k;
sloz_1:=s;
end;
//рекурсия
function Sloz_2(a,b:integer):integer;
begin
if a=0 then Sloz_2:=b
else if a>0 then Sloz_2:=Sloz_2(a-1,b+1)
else Sloz_2:=Sloz_2(a+1,b-1)
end;
 
var a,b:integer;
begin
write('a=');
readln(a);
write('b=');
readln(b);
writeln('Циклом a+b=',sloz_1(a,b));
writeln('Рекурсивно a+b=',sloz_2(a,b));
end.