Function p(s1,s2:string):string;
begin
if length(s1)=length(s2) then p:='da' else
p:='net'
end;

Это функция. Если вся программа заключается лишь в нахождении da или net, тогда будет так:

var s1,s2:string;
function p(s1,s2:string):string;
begin
if length(s1)=length(s2) then p:='da' else p:='net'
end;
begin
readln(s1);
readln(s2);
s1:=p(s1,s2);
write(s1);
end.