{* Задача 19 *}

Unit ZADACH19;
Interface
Implementation
Begin
 writeln('Написать программу, которая вводит с клавиатуры список фамилий учащихся, а затем распечатывает его, кроме тех учащихся, у которых фамилия начинается с буквы 'Ш'.');
End.

Program zadach19;

Uses zadach19.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  I : Integer;
  N : Integer;
  F : File Of String;
  S : String;
Begin
  Assign(F, 'Spis.lst'); {Связываем переменную F с файлом Spis.lst}
  Writeln('Введите количество учащихся');
  Readln(N); {Вводим количество учащихся}
  Rewrite(F); {Создаем файл для записи в него данных}
  For I := 1 To N Do {Для всех учащихся}
  Begin
    Writeln('Введите фамилию');
    Readln(S);
    Write(F, S)
  End;
  Close(F); {* Файл F будет закрыт *}
  Reset(F); {* Чтение из файла через переменную F *}
  Writeln; {* Вывод пустой строки *}
  Writeln('Список учащихся:');
  While Not(Eof(F)) Do
  Begin
    Read(F, S);
    If S[1]'Ш' Then
      Writeln(S)
  End;
  Close(F) {* Файл F будет закрыт *}
End.