Даны 2 строки символов: S1 и S2. Узнать, которая строка короче путем определения и сравнения длин строк. Результаты выдать на экран. Паскаль!!!!

Спасибо!

Спасибо!

Текст программы + скрин с примером выполнения программы.Program Stroki;var S1,S2 : string[250];beginwriteln('Введите 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.

var s1,s2:string; l1,l2:integer;beginreadln(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.Пример:programvar2-я строка короче