Работа с файлами 2 Опции

[@^WARlock^@]

Помогите решить.

Нужно написать программу, которая считывает текстовый файл и определяет содержится ли в нем строчные буквы латинского алфавита.

Строчные т.е. маленькие?

[Bokul]

А в чем проблема? Не умеешь работать с файлами, тогда загляни в Faq (http://forum.pascalnet.ru/index.php?showtopic=3584).
Если проблема в том как опредилить регистр буквы, то вот функция, которая возвращает true, если это строчная (то есть маленькая) буква и false - в противном случае:

function letter_case(ch:char):boolean;
begin
if (ord(ch)>=97) and (ord(ch)<=122) then
   letter_case:=true
else
    letter_case:=false;
end;

[klem4]

Можно чуть покороче

function LetterCase(ch : char) : boolean;
begin
  LetterCase := (ch in ['a'..'z']);
end;