>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>...
Задание. С помощью ПСП сформировать двухмерный MxN массив из элементов. В качестве элементов использовать слова из K..L символов A..Z (одномерный массив символов латинского алфавита). Осуществить подсчет элементов, удовлетворяющих условиям задания. Проверку заданных условий поиска реализовать с использованием типа множества. Вывести на экран сформированный массив в виде таблицы, выделив цветом подсчитанные элементы. Результат подсчета вывести на экран в отдельном окне.
вариант:
выделить цветом и подсчитать число слов,удовлетворяющих следующим условиям.
1.средняя буква в слове-согласная
2.Слов принадлнэит строке, к которой суммарное число гласных букв меньше, чем в следующе за ней
(нижерасположенной) строке.
K=2 , L=7 , M=20 ,N=10

(Здесь: M и N - соответственно число строк и столбцов формируемой
таблицы; K и L - соответственно минимальное и максимальное число букв в формируемых словах - элементах массива).
Методические указания
При формировании массива использовать стандартные подпрограммы ПСП - Random, Randomize, а также, возможно использование функции CHR. Коды ASCII символов A..Z - 65..90. Слова формируются в одномерных массивах, каждый из которых состоит из L ячеек; буквы записываются без пробела, начиная с первой ячейки.
Незаполненные буквами позиции массива в конце слов заполнить символами пробела - код ASCII - 32.
Для вывода на экран строки заданного цвета необходимо:
- в программе указать об использовании модуля CRT (USES CRT; - эта
директива должна присутствовать в начале текста программы).
- перед использованием стандартной процедуры вывода необходимо задать
цвет вывода соответствующим значением параметра X стандартной
процедуры TextColor(X).
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Основную часть я составил так:
PROGRAM LabRab;
USES
CRT;
CONST
K = 2;
L = 7;
M = 20;
N = 10;
CharA = 65; {Ord('A');}
CharZ = 90; {Ord('Z');}
TYPE
TWord = String[L];
TArrWord = array[1..M,1..N] of TWord;

{возвращает случайный символ от A до Z}
FUNCTION RandChar:Char;
BEGIN
RandChar:=Chr(CharA+Random(CharZ-CharA));
END;

{возвращает случайное слово от A до Z}
PROCEDURE RandWord(VAR S : TWord);
VAR
Len : Integer;
i : Integer;
BEGIN
Len:=K+Random(L-K); {случайная длина слова}
S:='';
for i:=1 to K do begin
S:=S+RandChar;
end;
END;

VAR
i : Integer;
j : Integer;
Mass : TArrWord; {массив слов}
BEGIN
Randomize; {инициализация генератора случайных чисел}
{заполнение массива слов}
for i:=1 to M do begin
for j:=1 to N do begin
RandWord(Mass[i,j]);
end;
end;

{теперь есть случайный массив слов}

{.............................}
{выполнение проверок }
{вывод результатов }
{.............................}

END.