Проверяется символ новой строки

Question

Здравствуйте i'v получил простую программу, которая couting символов в данном тексте, пока строка не пустая строка только с новой строки

var 
    znaki: array['a'..'z'] of integer = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); 
    napis: String; 
    maly: String; 
    dlugosc: Integer; 
    znak: char; 


begin 
napis := 'a'; 
while napis[1] <> '#13#10'do 
begin 
    readln(napis); 
    maly:=LowerCase(napis); 
    for dlugosc:=(length(maly)) downto 1 do 
begin 
znaki[maly[dlugosc]]:=znaki[maly[dlugosc]]+1; 
    end; 
    for znak:='a' to 'z' do 
    writeln(znak, ' ', znaki[znak]); 
    end; 

end. 

он терпит неудачу на в то время как Condtion и я не знаю почему. Просьба дать мне ключ

Answer 1

One char, napis []; не может быть 2 символа # 13 & # 10 ...

Итак, я буду делать это, например:

var 
    znaki: array['a'..'z'] of integer = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); 
    napis: String; 
    maly: String; 
    dlugosc: Integer; 
    znak: char; 


begin 
napis := 'a'; 
while ((Length(napis) > 0)) do 
begin 
    readln(napis); 
// napis := StringReplace(napis, #13#10, #10, [rfReplaceAll]); //useless for a console readln 
    maly:=LowerCase(napis); 
    for dlugosc:=(length(maly)) downto 1 do 
    begin 
    znaki[maly[dlugosc]]:=znaki[maly[dlugosc]]+1; 
    end; 
    for znak:='a' to 'z' do 
    writeln(znak, ' ', znaki[znak]); 
end; 
end. 

Answer 2

#10 является линия подачи

#13 является перевозка возврат (т. е. переход к началу строки)

Вам нужно всего лишь проверить # 10.