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.в чем лажа товарищи?