Program p_1; var a:string[50];b:string[50]; begin write(Заполните строку А и B ); read(a,b); if length(a)>length(b) then writeln( Первая строка длиннее ) else writeln( Вторая строка длиннее ); end. У меня пишет всегда A длиннее B.В чем лажа товарищи?

Begin
write(Заполните строку А и B );
readln(a);
readln(b);
if length(a)>length(b) then writeln(Первая строка длиннее )
else writeln(Вторая строка длиннее );
end.