Составить программку, которая определяет, какое из двух введенных с клавиатуры слов

Program z567;

 Var s_1,s_2:string; l,l_1:integer;

Begin

 write('Введите 1-ое слово - '); readln(s_1);

 write('Введите 2-ое слово - '); readln(s_2);

 if (s_1.Length gt; s_2.Length) then writeln(s_1)

                              else writeln(s_2);

End.