Заменить функцию на процедуру в программе

program str;
 
function IsPresent(const s1,s2:string):boolean;
var i:integer;
    temp:string;
begin
  result:=true;
  temp:=s2;
  for i:=1 to length(s1) do
  begin
    if pos(s1[i],s2)>0 then
      delete(temp,pos(s1[i],temp),1)
    else
    if length(temp)>0 then result:=false;
  end;
end;
 
var s1,s2:string;
i:integer;
f:boolean;
begin
  write('S1 -> ');
  readln(s1);
  write('S2 -> ');
  readln(s2);
  if IsPresent(s1,s2) then
    writeln('Можно')
  else
    writeln('Нельзя');
end.
 
[size="1"][color="grey"][I]Добавлено через 13 минут[/I][/color][/size]
что то не так..я не знаю как описать result
program str; 
 
procedure IsPresent(const s1,s2:string); 
var i:integer; 
temp:string; 
begin 
result:=true; 
temp:=s2; 
for i:=1 to length(s1) do 
begin 
if pos(s1,s2)>0 then 
delete(temp,pos(s1,temp),1) 
else 
if length(temp)>0 then result:=false; 
end; 
end; 
 
var s1,s2:string; 
i:integer; 
f:boolean; 
begin 
write('S1 -> '); 
readln(s1); 
write('S2 -> '); 
readln(s2); 
if result then 
writeln('Можно') 
else 
writeln('Нельзя'); 
end.

procedure IsPresent(const s1,s2:string; var result:boolean);