Код программы...помогите - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Код программы...помогите

Опции

-Илья-	15.12.2007 23:10 Сообщение #1
Гость	Имеется текстовый файл, каждая строка которого содержит следующие данные: книга; автор; колличество. Создать новый файл, содержащий только книги автора, фамилия которого вводится. Цитата 1 var surname,s,s1:string; 2 begin 3 write('Введите фамилию: '); 4 readln(surname); 5 assign(input,'input.txt'); 6 reset(input); 7 assign(output,'output.txt'); 8 rewrite(output); 9 while not eof(input) do begin 10 readln(s); 11 s1:=copy(s,1,pos(';',s)-1); 12 delete(s,1,pos(';',s)); 13 while (length(s)>0) and (s[1]=' ') do delete(s,1,1); 14delete(s,pos(';',s),length(s)-pos(';',s)+1); 15while (length(s)>0) and (s[length(s)]=' ') do delete(s,length(s),1); 16if surname=s then writeln(s1); 17end; 18close(input); 19close(output); 20end. может кто мне обяснить начиная с 11 и по 16 строчку что происходит...может кто прокментировать каждую строчку...особенно не ясно копи .... Заранее спасибо