Вывести в файл перестановки, в которых третий символ - цифра

procedure generate(var t: text; var x: string; n: integer);
var
  i: integer;
  b: boolean;
  c: char;
begin
  if n <> length(x) then
    for i := n to length(x) do
      begin
        c := x[n];
        x[n] := x[i];
        x[i] := c;
        inc(n);
        generate(t, x, n);
        dec(n);
        c := x[n];
        x[n] := x[i];
        x[i] := c;
      end
    else
      begin
        b := length(x) >= 3;
        i := 3;
        while b and (i <= length(x)) do
          begin
            b := x[i] in ['0'..'9'];
            inc(i, 3)
          end;
        if b then writeln(t, x)
      end
end;
 
const
  fname = 'permutat.txt';
var
  f: text;
  s: string;
  m: set of char;
  k: integer;
  unic: boolean;
begin
  repeat
    m := [];
    writeln('Введите строку, длиной от 2 до 8, из уникальных символов:');
    readln(s);
    for k := 1 to length(s) do
      begin
        unic := not (s[k] in m);
        if unic then include(m, s[k])
        else break
      end
  until (length(s) in [2..8]) and unic;
  assign(f, fname);
  reset(f);
  generate(f, s, 1);
  close(f);
  write('Перестановки записаны в файл ', fname);
  readln
end.