Помогите программисты мудрые:) - Pascal

Формулировка задачи:

нужен код для: массив из целых чисел заполняемый случайными числами от 0 до 33 от 4 до 66 от 67 до 100 представить числа в процентном соотношении, массив 70 элементов

Решение задачи: «Помогите программисты мудрые:)»

Листинг программы

[SIZE=2]
uses crt;
const n=70;
var a:array[1..n]of integer;
p1,p2,p3:integer;
i:integer;
begin
clrscr;
randomize;
writeln('Ishodnyj massiv:');
p1:=0;p2:=0;p3:=0;
for i:=1 to n do
begin
a[i]:=random(101);
if(a[i]>=0)and(a[i]<=33)then
begin
p1:=p1+1;
end
else if (a[i]>=34)and(a[i]<=67)then
begin
p2:=p2+1;
end
else
begin
p3:=p3+1;
end;
write(a[i],' ');
end;
writeln;
writeln;
writeln('Rezultat:');
writeln('Ot 0 do 33 ',p1,' chis=',(100*p1/70):0:2, '%');
writeln('Ot 34 do 67 ',p2,' chis=',(100*p2/70):0:2, '%');
writeln('Ot 68 do 100 ',p3,' chis=',(100*p3/70):0:2, '%');
readln
end.
[/SIZE]

Объяснение кода листинга программы

Объявлены переменные: n, a, p1, p2, p3, i.
Задано значение переменной n равное 70.
Объявлен массив a размером 1..n (70 элементов).
Присвоены начальные значения переменным p1, p2, p3 равные 0.
Очищен экран с помощью функции clrscr.
Запущен генератор случайных чисел с помощью функции randomize.
Выведена информация о случайном массиве:
- Выведена информация о количестве элементов в массиве (n).
- Выведена информация о каждой случайной величине в массиве (a[i]).
Посчитаны и выведены процентные значения количества элементов в массиве, удовлетворяющих определенным условиям:
- p1 - количество элементов от 0 до 33.
- p2 - количество элементов от 34 до 67.
- p3 - количество элементов от 68 до 100.
Введенная информация (количество элементов, удовлетворяющих определенным условиям) вычисляется и выводится в процентном соотношении (100p1/70, 100p2/70, 100*p3/70).
Программа ожидает ввода с клавиатуры с помощью функции readln.
Конец программы.