Составте программу которая позволяет ввести две строки s и t и вывести на экран более длинную строку

Var s : string;
var t : string;

begin

writeln ('Введите S:');
readln (s);
writeln ('Введите T:');
readln (t);
writeln (s+t);

end.