Строки. Добавление звездочек в более короткую строку до длины более длинной

uses
  unitstr;
var
  s1,s:string;
 
begin
  s:='Последнее слово в строке.';
  s1:='Собака прыгает в яму?';
  Writeln(AddStars(s,s1));
  Writeln(StringConcat(s,s1));
  readln;
end.

unit
  unitstr;
interface
 
function StringConcat(s1,s2:string):string;
function AddStars(s1,s2:string):string;
 
implementation
 
function lastword(s:string):string;
var
  n,i:integer;
begin
  for i:=length(s) downto 1 do
    if s[i]=' ' then
      begin
        n:=i;
        break;
      end;
  lastword:=copy(s,n+1,length(s)-n-1);
end;
 
function StringConcat(s1,s2:string):string;
begin
  StringConcat:=LastWord(s1)+LastWord(s2);
end;
 
function AddStars(s1,s2:string):string;
var
  i,n:integer;
  s:string;
begin
  if length(s1)<Length(s2) then
    begin
      n:=length(s2)-Length(s1);
      s:=s1;
    end
  else
    if  length(s2)<Length(s1) then
      begin
        n:=length(s1)-Length(s2);
        s:=s2;
      end
    else
      begin
        AddStars:='';
        exit;
      end;
  for i:=1 to n do
    s:=s+'*';
  AddStars:=s;
end;
 
begin
end.