Даны две строки. Составить процедуру, которая размещает первую строку в середине второй строки -Pascal(Паскаль)

program PascalGuru;

var
  s1, s2: string;

procedure INS(str1: string; var str2: string);
var
  i: integer;
begin
  i := (length(str2) div 2) + 1;
  if not odd(i) then
    delete(str2, i, 1);
  Insert(str1, str2, i);
end;

{ ---------------------------------- }
begin
  writeln('Vvedite dannye:');
  writeln;
  write('Stroka 1: ');
  readln(s1);
  write('Stroka 2: ');
  readln(s2);

  INS(s1, s2); { вызываем процедуру вставки }

  writeln;
  writeln('Rezult (Stroka 2): ', s2);

  readln;

end.