Problem 1

1: Procedure wxzs;
2:
3:	var
4:	marker:Set of Char;
5:	count:0..80;
6:	FileIn,FileOut: TEXT;
7:	ch:CHAR;
8:	NewString:Boolean;
9:	
10:	begin
11:		reset(FileIn, 'data.txt');
12:		rewrite(FileOut, 'newlines.txt');
13:		marker:=['*','$','%','&'];
14:		while not eof(FileIn) do begin
15:			NewString:=False;
16:			while not eoln(FileIn) do begin
17:				count:=0;
18:				read(FileIn, ch);
19:				if not (ch in marker) then begin
20:					NewString:=true;
21:					write(FileOut, ch);
22:				end
23:				else begin
24:					count:=count+1;
25:					if NewString then writeln(FileOut);
26:					NewString:=false;
27:				end
28:			end;
29:			readln(FileIn)
30:		end;
31:		close(FileIn);
32:		close(FileOut);
33:	end;


	
INPUT File:
asfafd$xretggdd&ddserr*pqwwo%c
$dcdddeedassdf%c$cdfaffefadfad*
a432$-=1mz.,ckiddklfkaj*