Помогите написать программу в паскале

var
M: array [0..99] of char; // объявляем наш массив
i: integer; // это будет счетчик цикла
a: integer; // это переменная для случайного числа
begin
randomize(); // включаем датчик случайных чисел
for i=0 to 99 do // проходим по всем элементам нашего массива
begin
{
В таблице ASCII самвол "А" имеет код 65, символ "H" - 72, символ "1" - 49, символ "8" - 56
Т. о. нужно сгенерировать случайное число из двух диапазонов: 65..72 и 49..56.
А потом это число перевести в символ
}
a := random(16); // случайное число от 0 до 16
if a <= 7 then a := a + 65 // а теперь от 65 до 72
else
begin
a := a - 8; // а теперь от 0 до 7
a := a + 49; // а теперь от 49 до 56
end;
// число мы сгенерировали, теперь преообразуем число (ASCII-код) в символ и записываем в массив
M := Chr(a);
end;
end;
...

Примерно так. Конечно, придётся поотлаживать. Сам запускать не пробовал...

Ну я не знаю.. . возми функцию случайного выбора значений скорми ей диапазон для A-H из ASCII (вроде 65 и 72 чтолЕ) ...и в цикле прогони на 100 элементов.. . или поищи функцию которая массив забивает значениями и там намути)))