Найти произведение элементов массива, кратных заданному

program a12;
uses
  crt;
const
  n=255;
var
  a:array[1..100]of integer;
  i,k,p, s: byte;
begin
  clrscr;
  writeln ('Dan massiv A(i),sostoiashii iz celix chisel.Poluchiti proizvedenie elementov massiva, cratnix p ');
  randomize;
  writeln('Vvedite kol-vo elementov massivov');
  readln(k);
  for i:=1 to k do
    begin
      writeln('vvedite massiv',i);
      readln(a[i]);
    end;
  writeln('vvedite kratnoe chislo');
  readln(p);
  s:=1;
  for i:=1 to k do
    begin
      if a[i] mod p=0 then
        s:=s*a[i];
    end;
  writeln('s=',s);
 
  readkey;
 
end.
end.

program a12;//заголовок программы
uses  crt;  //подключение библиотеки crt, она содержит многие полезные   
              // подпрограммы, например,clrscr; 
const            //раздел описания констант
n=255;       //n -константа со значением 255
var           //раздел описания переменных
a:array[1..100]of integer;//объявлен массив а,сот-ий из 100 элементов
i,k,p, s: byte;//объявлены 4 пер типа byte
begin  //операторная скобка begin,начало основ.программы
clrscr; //очистка экрана
writeln ('Dan massiv A(i),sostoiashii iz celix chisel.Poluchiti proizvedenie elementov massiva, cratnix p ');//вывод сообщения Dan massiv A(i),sostoiashii iz celix chisel.Poluchiti 
               //proizvedenie elementov massiva, cratnix p
randomize;//подключение функции случ.перебора
writeln('Vvedite kol-vo elementov massivov');// вывод сообщения Vvedite kol-vo
                                                           // elementov massivov
readln(k);// считывание переменной k
for i:=1 to k do //описан цикл он будет идти от 1 до к,то бишь к раз, но если будет 
                    //к=0,то никакого цикла не будет
begin //операторная скобка begin
writeln('vvedite massiv',i);//вывод сообщения в скобках которое
readln(a[i]);//считывание элементов массива a[i] ,их будет k  штук.
end;//вторая опер.скобка,конец
writeln('vvedite kratnoe chislo');//вывод сообщения в скобках которое
readln(p);//считывание пер p
s:=1;//s присваивается 1
for i:=1 to k do описан цикл он будет идти от 1 до к,то бишь к раз, но если будет 
                    //к=0,то никакого цикла не будет,повторяюсь уже
begin //операторная скобка begin
if a[i] mod p=0 then //Проверка условия: если a[i] делится без остатка на p, операция
                          //mod-остаток от деления 
s:=s*a[i];            // тогда перемножаем такие елементы и произведение сохраняем в s  
end;//вторая опер.скобка,конец
writeln('s=',s);//вывод произведения s
 
readkey;//ожидание любой клавиши на клавиатуре
 
end. //ошибка тут ";" должна быть, операторная скобка
end.//коней основной программы