Ввести два предложения и определить какое из них короче.

Program Pr1; uses crt; var stroka,stroka1: string; Beginclrscr; writeln ('Vvedite 1 predlojenie'); readln (stroka); writeln ('Vvedite 2 predlojenie'); readln (stroka1); if length (stroka) >length (stroka1) then writeln ('2 Predlogenie koroche') else writeln ('1 Predlogenie koroche'); end.