Строки...

[min@y™]

Функция проверки условия "все буквы слова разные":

function DiffLetters(const S: string): Boolean;
var
  L: set of Char;
  Index: Integer;
begin
  Result:= False;
  L:= [];
  
  for Index:= 1 to Length(S) do
    if S[Index] in L
      then Exit
      else Include(L, S[Index]);
      
  Result:= True;
end;

[manchester_alan]

а после этого, где нужно эту функцию использовать ну или прописать..?

[Аватар]

Прописная и строчная "а" одно и то же? Если да, то к одному регистру привести при проверке не помешает

[min@y™]

а после этого, где нужно эту функцию использовать ну или прописать..?

это ты кому говоришь-то?

[manchester_alan]

да тут без разницы какая буква)

[manchester_alan]

Сообщение от min@y™

это ты кому говоришь-то?

ахаха, это вам))

[min@y™]

ахаха, это вам))

ну так обозначай это!

а после этого, где нужно эту функцию использовать

что за вопрос? конечно же в своей программе!

ну или прописать..?

а вот тут я не понял: что значит «прописать»?

[manchester_alan]

Сообщение от min@y™

что за вопрос? конечно же в своей программе!

var str:string; w:mas; d:byte; z:Boolean; k:Integer;
begin
SetConsoleCP(1251); SetConsoleOutputCP(1251);
Write('Введите строку : '); readln(str);
if str[length(str)]<>' ' then str:=str+' ';
Words(str,w,d);
z:=True;
while z do
begin
Readln(k);
  case k of
    1: DiffLetters(str);

то есть сразу вот так использовать?? это разве выводит уже??

[min@y™]

то есть сразу вот так использовать?? это разве выводит уже??

судя по куску кода – ты уже колесо ногой пинал и под капот смтрел, да? не едет чойта, да?

[manchester_alan]

ну да ну да:D