Текстовые файлы. Перезаписать файл f в файл h, так, чтобы в файле h были записаны только числа

Var f,h:text; i,p:integer; s:string;
Begin
Assign(f,'C:\Input.txt');{файл, в котором записаны числа и символы}
Reset(f);{открываем его для чтения}
Readln(f,s);{читаем из файла строку s}
Assign(h,'C:\Output.txt');{файл для вывода}
ReWrite(h);{создаем файл}
Repeat
 p:=Pos(' ',s);{в строке s находим пробел}
 If (s[p-1] in ['0'..'9']) and (s[p+1] in ['0'..'9']) then Write(h,s[p-1],s[p+1],' ');{если слева и справа от пробела стоят цифры, то записываем их в файл}
 Delete(s,1,p);{удаляем кусок строки до пробела(чтобы не было зацикливания)}
Until p=0;
Close(f); Close(h);{закрываем файлы}
End.

Var h,f:text; t1,t2,i,d,d2,code:integer; p,s:string;
Begin
Assign(f,'C:\Input.txt');
Reset(f);
Assign(h,'C:\Output.txt');
ReWrite(h);
Readln(f,s);
For i:=1 to length(s) do
 If not(s[i]=' ') then p:=p+s[i]{посимвольно собираем "слова"}
 Else
  Begin
   t2:=i-length(p);{находим индекс пробела, стоящего до 2-го слова}
   Val(p,d,code);{пробуем преобразовать "слово" в число}
   If (d>0) and (d2>0) and (t1=t2-1) then{если находим 2 числа, стоящих через пробел, то записываем в файл}
    Begin
     Write(h,d2,' ',d,' '); d:=0; d2:=0;
    End;
   If code=0 then
    Begin
     p:=''; d2:=d; t1:=i;{находим индекс пробела(после 1-го числа}
    End
   Else code:=0;
  p:='';
 End;
Close(f); Close(h);
End.