В двух массивах строковых констант хранятся слова:существительные и глаголы. Составте программу, которая выводит:

Вот так:
const
N = 8; { количество слов в каждом массиве }
L = 8; { максимальная длина одного слова }
S : array [1..N] of String[L] =
('ученик', 'артист', 'художник', 'рыба', 'птица', 'кошка', 'собака', 'корова');
G : array [1..N] of String[L] =
('читает', 'поёт', 'рисует', 'плавает', 'летает', 'мяукает', 'лает', 'мычит');
var
Nom : Byte;
begin
Randomize;
for Nom := 1 to N do
WriteLn(S[Nom], ' ', G[Random(N) + 1]);
end.
Но вот так интереснее:
Здесь глагол не повторяется. Для этого заведён дополнительный массив NoShow, в котором в 0 ячейке хранится количество, а с 1 - номера ещё не показанные глаголы.
const
N = 8; { количество слов в каждом массиве }
L = 8; { максимальная длина одного слова }
S : array [1..N] of String[L] =
('ученик', 'артист', 'художник', 'рыба', 'птица', 'кошка', 'собака', 'корова');
G : array [1..N] of String[L] =
('читает', 'поёт', 'рисует', 'плавает', 'летает', 'мяукает', 'лает', 'мычит');
var
Nom, NomS, NomG : Byte;
NoShow : array [0..N] of Byte;
begin
for Nom := 1 to N do NoShow[Nom] := Nom; NoShow[0] := N;
Randomize;
for NomS := 1 to N do
begin
NomG := Random(NoShow[0]) + 1;
WriteLn(S[NomS], ' ', G[NoShow[NomG]]);

Dec(NoShow[0]);
for Nom := NomG to NoShow[0] do
NoShow[Nom] := NoShow[Nom + 1];
end;
end.