Выделить числа из строки

{если имеем любое число, пишем в строку, если не число, то переносим на след строку}
function reconstruct(var f:text;k:integer;s:string):boolean;
begin
rewrite(f);
while not eof(f) do
begin
for k:=0 to length(s) do 
begin
if S[k] = 1 or 2 or 3 or 4 or 5 or 6 or 7 or 8 or 9 or 0
then write(s[k])
else writeln;
end;
reconstruct(true);
close(f);
end;
end;
 
{главная программа}
var f:text;
begin
assign(f, 'БД.txt');
reconstruct;
end.

program test;
 
type
  {тип для набора ограничителей слов в строке}
  TCharSet = set of char;
const
  {Список всех ограничителей слов в строке}
  Delim_Set: TCharSet = [' ', '.', ',', '!', '?', '-', ':', ';',
    '(', ')', '[', ']', '{', '}'];
 
{Нахождение слова из строки Src.
 Поиск слова начинается с позиции StartPos.
 На выходе не только очередное слово, но и переменная StartPos
 указывает на следующий за словом символ.
 Если слово не найдено, то StartPos=Length(Src)+1.}
  function GetNextWord(const Src: string; var StartPos: integer;
    const Delimiters: TCharSet): string;
  var
    i: integer;
  begin
    i := StartPos;
    {i-текущая позиция в анализируемой строке}
    {ищем первую букву слова}
    while (i <= Length(Src)) do
      if (Src[i] in Delimiters) then
        Inc(i)
      else
        Break;
    StartPos := i;
    {StartPos указывает на первую букву в слове или на "следующий за последним символом в строке"=Length(Src)+1}
    {теперь просматриваем слово пока не закончится строка или
     не начнутся ограничители слов}
    while (i <= Length(Src)) do
      if not (Src[i] in Delimiters) then
        Inc(i)
      else
        Break;
    {i - указывает на следующий за словом индекс (т.е. на очередной пробел)}
 
    GetNextWord := Copy(Src, StartPos, i - StartPos);
 
    StartPos := i;{для дальнейшего использования}
  end;
 
var
  s: string;
  StartPos: integer;
begin
  s := '12 345 6789 121212 32132 1';
  StartPos := 1;
  repeat
    writeln(GetNextWord(s, StartPos, Delim_Set));
  until StartPos > length(s);
end.

while not SeekEoF(f) do begin
  Read(f,n); WriteLn(o,n)
end;