Lab3_var6_z1

{Описать логическую функцию check(s) для текстового файла
s, проверяющую, содержит ли файл s латинские буквы.
Указание: введите файл s (последний элемент в файле '.') и
вычислите значение функции check(s)}

program Lab3_var6_z1;

var
  S: Text; // Текстовый файл
  c:char; //символ, служащий для посимвольной записи и чтения из файла
  
function check(S: Text): boolean; //функция логического типа для проверки текстового файла 
                                  //на наличие символов латинского алфавита
                                  
var
  Latin: set of char; // множество букв латинского алфавита
  Str: string; // Строка для записи и чтения файла
  ok: boolean; //Логическая переменная для проверки принадлежности символов 
  i: integer; // счетчик
  
begin
  ok := false;
  Latin := ['a'..'z', 'A'..'Z']; //устанавливаем множество букв латинского алфавита
  reset(S); // открываем файл для чтения
  
  while not eof(S) do
  begin
    read(S, c); //считываем символ из файла
    Str:=Str+c; //добавляем его в строку
  end;
  
  Writeln('Строка считана: ');
  Writeln(Str); //контролируем правильность данных
  
  Close(S); //закрываем файл
  
  i := 0;

  repeat
    inc(i);
    if Str[i] in Latin then ok := true;  // проверка принадлежности каждого символа строки
                                         // множеству символов латинского алфавита
    
  until (ok or (i = length(Str))); // выход из цикла если обнаружена буква латинского алфавита или достигнут конец строки
  
  check := ok; //присваиваем значение функции
  
end;

begin
  
  assign(S, 'lab3_var6_z1.txt'); // связываем файл с именем "S"
  rewrite(S); //Открываем для записи
  
  //вводим строку
  writeln('Введите строку ("." – конец ввода): ');
  
  repeat
   read(c);
   write(S,c);
  until (c='.');
    
 
   close(S); //Закрываем файл
  
  Writeln('Файл содержит ланинские символы: ',check(S)); //выводим сообщение вместе с результатом выполнения функции
  
end.