Problem 3

1: Procedure ExtractNumbers;
2: 
3: Var Ch:Char;
4: 	NonDigit, InANumber: Boolean;
5: 	FileIn, FileOut: Text;
6: 	
7: begin
8: 	reset(FileIn, 'number.txt');
9: 	rewrite(FileOut, 'found.txt');
10: 	InANumber:=False;
11: 	while not eof(FileIn) do begin
12: 		if eoln(FileIn) then begin
13: 			readln(FileIn);
14: 			NonDigit:=True
15: 		end {eoln}
16: 		else begin
17: 			read(FileIn, Ch);
18: 			if  Ch in ['0'..'9'] then begin {Ch a digit}
19: 				NonDigit:=False;
20: 				InANumber:=True;
21: 				write(FileOut, Ch)
22: 		 	 end {if ch}
23: 			else {Ch not a digit} 
24: 				NonDigit:=True;
25: 		end; {not eoln}
26: 			If NonDigit and InANumber then begin
27: 				InANumber:=False;
28: 				writeln(FileOut)
29: 		 	 end {if NonDigit and InANumber}
30: 	end;{while not eof}
31: 	close(FileIn);
32: 	close(FileOut)
33: end;

INPUT File:
asfafd1536xretggdd401ddserr4pqwwo98c
12dcdddeedassdf567c019cdfaffefadfad29
a43215-=1mz.,ckiddklfkaj71623