Работа с файлами.

[Pascaler]

Надо чтобы данные программа брала из файла stroka.txt и печатала ответ в другом файле otvet.txt
Помогите переделать эту программу.Программа находит в строке цифры

Program Stroke;
uses crt;
var s1,s2:string;
     i:integer;
BEGIN
  clrscr;
  s1:='';
  s2:='';
  writeln('vvedite stroky!');
  readln(s1);
  for i:=1 to Length(s1) do
    if s1[i] in ['0'..'9']
      then s2:=s2+s1[i]
      else
        if s2<>'' then
          begin
            writeln(s2);
            s2:=''
          end;
  if s2<>'' then writeln(s2);
  writeln;
END.

[Базиля]

В общем если я верно уяснил условие, а именно, вводится строка и ее записать в файл1, потом обработав этот файл переписать в другой файл только цифры.
Держи код:

program zad1;
var f1,f2:text;
s:string;
m:set of char;
i:integer;
begin
m:=['0'..'9'];

assign(f1,'stroka.txt');
rewrite(f1);
writeln('введите данные');
while s<>' ' do        {для окончания ввода "ввести пробел"}
begin
read(s);
write(f1,s);
end;
writeln('ввод файла окончен');

close(f1);
reset(f1);
assign(f2,'otvet.txt');
rewrite(f2);
while not eof(f1) do
begin
while not eoln(f1) do
begin
read(f1,s);
for i:=1 to length(s) do
begin
if s[i] in m then
write(f2,s[i]);
end;
end;
readln(f1);
end;
close(f1);
close(f2);
reset(f2);
writeln('получившийся файл:');
while not eof(f2) do
begin
read(f2,s);
write(s);
end;
close(f2);
end.

P.S. в файле otxet.txt все цифры будут записаны в одну строку, думаю не принципиально это, хотя могут докапаться до того чтобы на каждой отдельной строке были соответствующие ей цифры. В общем если будут какие трудности пиши

[Pascaler]

Не работает твоя программа, плиз помогите мою переделать....
Мне надо чтоб он открыл файл, где уже имеются данные, в смысле строка с цифрами, и в новом файле должны быть только цифры...

[Pascaler]

Не работает твоя программа, помогите мою переделать....
Мне надо чтоб он открыл файл, где уже имеются данные, в смысле строка с цифрами, и в новом файле должны быть только цифры...

[ROMA2PVT]

Program Stroke;
uses crt;
var
f,f2:text;
s1,s2:string;
     i,kol:integer;
BEGIN
  clrscr;
  s1:='';
  s2:='';
  assign(f,'C:\Stroka.txt');
  reset(f);
  begin
  read(f,s1);
  end;
  assign(f2,'C:\Otvet.txt');
           rewrite(f2);
           kol:=0;
  for i:=1 to Length(s1) do
    if s1[i] in ['0'..'9']
      then s2:=s2+s1[i]
      else
        if s2<>'' then
          begin
            write(s2,' ');
            write(f2,s2,' ');
            s2:='';
          end;
  if s2<>'' then
  begin
          writeln(s2);
          write(f2,s2,' ');
          end;
  Close(f);
  Close(f2);
  writeln;
END.

[Pascaler]

непонятно что ты хотел сказать

[Pascaler]

спасибо работает вроде)