{* Задача 75 *}

Unit ZADACH75;
Interface
Implementation
Begin
 writeln('Создать текстовый файл, в котором фамилии и даты рождения(число, месяц, год) студентов (в задании все это в табличке изображено). Используя этот файл, вывести на экран фамилии тех студентов, которые родились летом ');
End.

Program zadach75;

Uses zadach75.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  f  : text;
  i  : integer;
  c  : char;
  s  : String;
  s2 : String;
  s3 : String;
Begin
  writeln('c - создать файл, o - открыть файл');
  readln(c);
  If c = 'c' Then
  Begin
    assign(f, 'C:students.txt'); {* Связывание f с файлом 'C:students.txt' *}
    rewrite(f); {* Подготовка переменной f для записи в файл *}
    writeln('Зако-чите ввод пробелом...');
    i := 1;
    Repeat            writeln('Введите фамилию студе-та №', i);
      readln(s);
    If s  ' ' Then
    Begin
      writeln(f, s);
      writeln('Введите дату рожде-ия студе-та №', i, '. Формат - ДД.ММ.ГГ, -апример - 27.07.1987');
      readln(s2);
      writeln(f, s2);
    End;
    i := i + 1;
    Until s = ' ';
    close(f); {* Файл f будет закрыт *}
    writeln('Файл успешно создан');
  End;
  If c = 'o' Then
  Begin
    assign(f, 'C:students.txt'); {* Привязка переменной f к файлу 'C:students.txt' *}
    reset(f); {* Подготовка переменной f для чтения из файла *}
    writeln('Студе-ты, родившиеся летом:');
    While Not eof(f) Do {* Пока не конец файла *}
    Begin
      readln(f, s);
      readln(f, s2);
      s3 := copy(s2, pos('.', s2) + 1, 2);
      If (s3 = '06') Or (s3 = '07') Or (s3 = '08') Then
        writeln(s, ' - ', s2);
    End;
    readln; {* Ждем нажатия Enter *}
  End;
  
End.