Даны 2 строки символов: s1 и s2. узнать, которая строка короче путем определения и сравнения длин строк. результаты выдать на экран.

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

Пример:
program
var
2-я строка короче

Текст программы + скрин с примером выполнения программы.

Program Stroki;
var S1,S2 : string[250];
begin
writeln('Введите 1-ю строку: ', S1);
Readln(S1);
writeln('Введите 2-ю строку: ', S2);
Readln(S2);
 if Length(S1)>Length(S2)
  then writeln('Длиннее строка 1')
   else
    if Length(S1)<Length(S2)
  then writeln('Длиннее строка 2')
  else writeln('Длины строк равны')
end.