Найти из двух строк, какая строка больше по длине и на

Var s1, s2:string; l1,l2:integer;
begin
writeln('Введите 1 строчку:');
readln(s1);
writeln('Введите 2 строчку:');
readln(s2);
l1:=length(s1);
l2:=length(s2);
if l1gt;l2
 then writeln('Первая строчка длиннее на ',l1-l2)
 else if l1lt;l2 then writeln('2-ая строчка длиннее на ',l2-l1)
   else writeln('Строчки имеют одинаковую длину');
end.

Пример:
Введите 1 строчку:
var s1, s2:string; l1,l2:integer;
Введите 2 строку:
begin
1-ая строчка длиннее на 28