Текстовые и типизированные файлы

[Тигран001]

В стоках текстового файла F отыскать числа и записать их в текстовый файл G с указанием номера строки, в которой обнаружено данное число.

плизз)

[Тигран001]

^UP^ ^UP^ ^UP^

[Тигран001]

неужели никто не поможет ??

[mifomen]

Напиши примерно как задаются данные в файле F, потому что от того как задано, зависит решение задачи.

[Филантроп]

{В строках текстового файла F отыскать числа и записать их в текстовый файл G
 с указанием номера строки, в которой обнаружено данное число.}
 const a=['0'..'9'];
    inpt='1.txt';
	outt='2.txt';
	var f,g:text;
	i,k:integer;
	sub,s:string;
begin
assign(f,inpt);
assign(g,outt);
reset(f);
rewrite(g);
k:=0;
while not eof(f) do begin
inc(k); 
readln(f,s);
sub:='';
for i:=1 to length(s) do
begin
if s[i] in a then sub:=sub+s[i]
else begin if sub<>'' then 
writeln(g,k,':',sub);sub:='';end;
end;
if sub<>'' then writeln(g,k,':',sub);
end;	
close(f);close(g);
end.

[Тигран001]

Сообщение от Филантроп

{В строках текстового файла F отыскать числа и записать их в текстовый файл G
 с указанием номера строки, в которой обнаружено данное число.}
 const a=['0'..'9'];
    inpt='1.txt';
	outt='2.txt';
	var f,g:text;
	i,k:integer;
	sub,s:string;
begin
assign(f,inpt);
assign(g,outt);
reset(f);
rewrite(g);
k:=0;
while not eof(f) do begin
inc(k); 
readln(f,s);
sub:='';
for i:=1 to length(s) do
begin
if s[i] in a then sub:=sub+s[i]
else 
writeln(g,k,':',sub);sub:='';
end;
if sub<>'' then writeln(g,k,':',sub);
end;	
close(f);close(g);
end.

она не правильно работает (((

указывы точные пути на 1 и 2.тхт

PHP код:

inpt='C:\Users\Admin\Desktop\1.txt';
    outt='C:\Users\Admin\Desktop\2.txt'; 


в первый файл копиру текст любой, запускаю прогу, во вторм файле вот что выдает:

1:
1:
1:
3:
3:
3:
3:
3:
3:
3:
5:
5:
5:
5:
9:
9:
и т.д
что не так ?((

[Тигран001]

Сообщение от mifomen

Напиши примерно как задаются данные в файле F, потому что от того как задано, зависит решение задачи.

файле просто текст с цифрами

[Тигран001]

Сообщение от Филантроп

.

спасибо большое !!!!