Написать программу, которая будет аналогично функции concate, т.е. склеивает строки — Pascal(Паскаль)

function Concate(s1, s2: string): string;
begin
  Concate := s1 + s2;
end;

var
  s1, s2, s3: string;

begin
  readln(s1);
  readln(s2);
  s3 := Concate(s1, s2);
  writeln(s3);

end.