program FindWordsWithMaxLength;

const
n = 100;

type
WordsArray = array[1..n] of string;

var
A: WordsArray;
m, i, max_length: integer;

procedure FindWords(A: WordsArray; m, max_length: integer);
var
i: integer;
begin
writeln('Words with length not exceeding the specified value:');
for i := 1 to m do
begin
if Length(A[i]) <= max_length then
writeln(A[i]);
end;
end;

begin
// Вводим количество слов в массиве
write('Enter the number of words in the array: ');
readln(m);

// Вводим слова в массив
writeln('Enter the words:');
for i := 1 to m do
begin
readln(A[i]);
end;

// Вводим максимальную длину
write('Enter the maximum length of a word: ');
readln(max_length);

// Вызываем процедуру поиска слов
FindWords(A, m, max_length);
end.