Cristian Belii

Program CPascal;

const add_on=('.txt'); // Расширение текстового файла
      letter:set of char=['a'..'z','A'..'Z','а'..'я','А'..'Я'];

var f:text; // Текстовый файл
    f_name:string; // Имя текстового файла
    st:string; // Строка из файла
    lot_1,lot_2:set of char; // Множества
    i,j:integer; // Счетчики

Begin
Write('Введите имя файла: '); Readln(F_Name);
F_Name:=Concat(F_Name,Add_On);

if FileExists(F_Name) then // Файл существует...
                          Begin
                          Assign(F,F_Name); // Подключаем файл
                          Reset(F); // Открываем файл для чтения

                          Lot_1:=[];
                          Lot_2:=[];

                          While not Eof(F) do
                                Begin
                                Inc(i); // Считаем предложения...
                                Readln(F,St);
                                for j:=1 to Length(St) do if (St[j] in Letter) then if Odd(i) then Lot_1:=Lot_1+[St[j]]
                                                                                              else Lot_2:=Lot_2+[St[j]];
                                end;

                          Close(F); // Закрываем файл

                          // Выводим результат...
                          Writeln('Список букв в нечетных предложениях: ',Lot_1);
                          Writeln('Список букв в четных предложениях: ',Lot_2);
                          end
                      else Writeln('Ошибка: Файл ',F_name,' не существует...');
end.