Pascal В заданном тексте подсчитайте общее количество букв «х» и «у»

program xjkhjh; uses crt; Var T: string; i, summ: byte; Begin Writeln ('Введи текст: '); Readln (T); summ: =0; For i: =1 to length (T) do If T[i] in ['y','x'] then inc (summ); Writeln ('Сумма=',summ); End.