Основы программирования на языке Паскаль

Program L; Var I,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); Reset(F); Writeln; Writeln('Список учащихся:'); While Not(Eof(F)) Do Begin Read(F,S); If S[1]<>'Ш' Then Writeln(S) End; Close(F) End.