Извлечь из текстового файла все рациональные числа, без повторов

begin
  var s := 'abc 123 abc 123/123 abc 123.123 abc 1/3=0.33333333';
  var ПозицииДелителя := s.Select((c,i)->c='/'?i:0).Where(i->i>0);
  var L := New List<string>;
  foreach var p in ПозицииДелителя do
    begin
      var(i, частное):=(p, String(''));
      while (i>-1) and (s[i] in ['0'..'9']) do
        (частное, i) := (s[i]+частное, i-1);
      var(j, делитель):=(p+2, String(''));
      while (j<=s.Length) and (s[j] in ['0'..'9']) do
        (делитель, j) := (делитель+s[j], j+1);
      L.Add(частное + '/' + делитель);
    end;
  if L.Count = 0 then
    WriteLn('Не найдено рациональных чисел!')
  else
    begin
      WriteLn('Рациональные числа:'); L.PrintLines;
    end;
end.

begin
  var s := 'Ну числа не целые: 4665.33 567.55 989.01 и тд 123.3 123.3 123.3';
  var v : Real;
  var L := s.ToWords(' ').Where(x -> TryStrToFloat(x, v)).Distinct;
  L.Println;
end.

var
   f:text;
 
   a: string;
   
 begin 
     assign(f , 'D:\ABC\WR\S1.txt');
     reset(f);
     
     while not Eof(f) do
     begin
        readln(f, a);
        begin
  var s := a;
  var v : Real;
  var L := s.ToWords(' ').Where(x -> TryStrToFloat(x, v)).Distinct;
  L.Println;;
     end;
      
end; 
        
 
 
 
 
end.

begin
  var s := ReadAllText('D:\ABC\WR\S1.txt');//'Ну числа не целые: 4665.33 567.55 989.01 и тд 123.3 123.3 123.3';
  var v : Real;
  var L := s.ToWords(' ').Where(x -> TryStrToFloat(x, v)).Distinct;
  L.Println;
end.