var c1, c2, c3:char; begin for c1:='a' to 'z' do for c2:='a' to 'z' do for c3:='a' to 'z' do //c1+c2+c3 - и есть твоя комбинация end;