Помогите решить.
Нужно написать программу, которая считывает текстовый файл и определяет содержится ли в нем строчные буквы латинского алфавита.
Строчные т.е. маленькие?
function letter_case(ch:char):boolean;
begin
if (ord(ch)>=97) and (ord(ch)<=122) then
letter_case:=true
else
letter_case:=false;
end;
function LetterCase(ch : char) : boolean;
begin
LetterCase := (ch in ['a'..'z']);
end;