Автор: -Илья- 16.12.2007 3:10
Имеется текстовый файл, каждая строка которого содержит следующие данные: книга; автор; колличество. Создать новый файл, содержащий только книги автора, фамилия которого вводится.
Цитата
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 строчку что происходит...может кто прокментировать каждую строчку...особенно не ясно копи ....
Заранее спасибо