Написать программу удаления из файла строк с совпадающими значениями между пробелами — Pascal(Паскаль)

Входной файл:
1 1 1 1 8 25
1 1 1 1 9 24
1 1 1 1 10 23
1 3 9 6 4 14
1 3 9 6 5 13
1 11 3 5 5 12
2 7 7 7 7 7
3 3 3 3 3 12

Итоговый файл:
1 3 9 6 4 14
1 3 9 6 5 13

   const a : array[1..28] of string = (' 1  1  1  1  1 ', ' 2  2  2  2  2 ',
 ' 3  3  3  3  3 ', ' 4  4  4  4  4 ', ' 5  5  5  5  5 ', ' 6  6  6  6  6 ',
 ' 7  7  7  7  7 ',
 ' 1  1  1  1 ', ' 2  2  2  2 ', ' 3  3  3  3 ', ' 4  4  4  4 ', ' 5  5  5  5 ',
 ' 6  6  6  6 ', ' 7  7  7  7 ', ' 8  8  8  8 ', ' 9  9  9  9 ',
 ' 1  1  1 ', ' 2  2  2 ', ' 3  3  3 ', ' 4  4  4 ', ' 5  5  5 ', ' 6  6  6 ',
 ' 7  7  7 ', ' 8  8  8 ', ' 9  9  9 ', ' 10 10 10 ', ' 11 11 11 ', ' 12 12 12 ');
                                                       {ucKoMbIe nogcTpoKu}
  var
    f1, f2 : text;
    S : string;
    i : byte;
  begin
    Assign(f1, '62s.txt'); Reset(f1);
    Assign(f2, 'br.txt'); ReWrite(f2);
    while not Eof(f1) do
     begin
      ReadLn(f1, S);
       for i := 1 to 28 do
       if pos(a[i], S) > 0 then delete(S, 1, 18);
       WriteLn(f2, S);
     end;
    Close(f1); Close(f2)
  end.