Перебор элементов с параметрами из массива

var
  v:array[1..64] of string[60];
  s,s1:string[64];
 
{procedure gen;//создаем файл
var
  f:text;
  c:char;
  i,j,k:integer;
begin
  randomize;
  assign(f,'e:\text.txt');
  rewrite(f);
  for i:=1 to 54 do begin
    for j:=1 to 64 do begin
      repeat c:=chr(random(254));until c in ['0'..'9','a'..'z','A'..'Z'];
      write(f,c);
    end;
    writeln(f);
  end;
  close(f);
end;
}
 
procedure rr(i:byte);
var
  j,k,l:byte;
  b:boolean;
begin
  if i=64 then for j:=1 to length(v[64]) do begin
   s[i]:=v[64][j];
   b:=true;
  for k:=1 to length(s)-2 do if (s[k]=s[k+1]) and (s[k]=s[k+2]) then begin b:=false;break;end;
    l:=0;
    for k:=i downto 1 do if s[i]=s[k] then l:=l+1;
  if (b) and (l<6) then writeln(s);
 end
  else for j:=1 to length(v[i]) do begin 
    s[i]:=v[i][j];
    b:=false;
    if (i<3) then b:=true else 
    if not ((s[i-2]=s[i]) and (s[i-1]=s[i]))then b:=true;
    l:=0;
    for k:=i downto 1 do if s[i]=s[k] then l:=l+1;
    if (b) and (l<6) then rr(i+1);
  end;
end;
 
procedure one;
var
  f:text;
  a:array[1..55,1..64] of char;
  c:char;
  i,j:integer;
begin
  assign(f,'e:\text.txt');
  reset(f);
  for i:=1 to 54 do begin
    for j:=1 to 64 do read(f,a[i,j]);
    readln(f);
  end;
  for j:=1 to 64 do begin
    s:='';
    for i:=1 to 54 do s:=s+a[i,j];
    for c:=#48 to #122 do
      if (c in ['0'..'9','a'..'z','A'..'Z']) and (pos(c,s)=0) then v[j]:=v[j]+c;
   end;
   s:='';   
   for i:=1 to 64 do s:=s+' ';
   rr(1);
   readln;
   close(f);
end;
 
begin
 
{gen;}
  one;
end.

const lines = 7;
const chars = 10;
var 
A:array[1..lines] of string[chars];
B:array[1..chars] of string[chars];
Sizes:array[1..chars] of integer;
i:integer;
 
procedure Show(prefix:string; position:integer);
var i:integer;
begin
  for i:=1 to Sizes[position] do
    if (position = chars) then writeln( prefix + B[position][i])
    else Show(prefix + B[position][i], position+1);
end;
 
procedure ReadArray();
var F: text; i:integer;
begin
assign(F,'one.txt');
reset(F);
writeln('Читаем файл');
for i:= 1 to lines do begin
  read(F, A[i]);
  readln(F);
end;
close(F);
end;
 
procedure GetAvailableSymbols();
var check:boolean;
tmp_char:char;
i,j:integer;
begin
writeln('Считаем возможные символы');
for i:= 1 to chars do begin
  check := False;
  for tmp_char:= [COLOR="Red"]'0' to '9'[/COLOR] do begin
    for j:= 1 to lines do begin
      if (tmp_char = A[j][i]) then check := True;
    end;
    if (Not check) then B[i]:=B[i]+tmp_char;
    check := False;
  end;
  Sizes[i] := B[i].Length;
end;
end;
 
begin
ReadArray();
GetAvailableSymbols();
for i:=1 to Sizes[1] do
  Show(B[i], 2);
end.