Ошибка Error 85: ';' expected - Turbo Pascal

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

                    Листинг программы
                
 
                            
                        
program pr13;
uses crt;
Type mas1=array[1..10000] of real;
     mas2=array[1..10000] of integer;
     var p1:^mas1;
         p2:^mas2;
 
procedure massiv1(var k: real);
var i,v:integer;
    begin
    new(p1);
    k:=0;
    v:=0;
    for i:=1 to 10000 do
    begin
          p1^[i]:=random*(250)-100;
          if trunc (p1^[i]) mod 2 <> 0  then
          k:=k+1;
          writeln(p1^[i]:6:2);
          v:=v+1;
          if v = 10000 then begin
          readkey;
          clrscr;
          v:=0;
          end;
          end;
          end;
procedure massiv2(var k:real);
var i,v:integer;
begin
new(p2);
k:=0;
v:=0;
for i:=1 to 10000 do begin
    p2^[i]:=random(501)-250;
    if  p2^[i] mod 2 <> 0 then
    begin
     k:=k+1;
          writeln(p2^[i]:6);
          v:=v+1;
          if      v = 10000 then begin
          readkey;
          clrscr;
          v:=0;
          end;
          end;
 
   begin
        clrscr;
        randomize;
        writeln('Вещественный массив');
        massiv1(k);
          writeln('Количество нечетных элементов в массиве равно',k);
          dispose(p1);
          readkey;
          writeln('Целочисленный массив');
          massiv2(k);
          writeln('Количество нечетных элементов в массиве равно',k);
          readkey;
          dispose(p2);
          end.

Решение задачи: «Ошибка Error 85: ';' expected»

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

procedure massiv2(var k:real);
var i,v:integer;
begin
new(p2);
k:=0;
v:=0;
for i:=1 to 10000 do
 begin
  p2^[i]:=random(501)-250;
  if  p2^[i] mod 2 <> 0 then
   begin
    k:=k+1;
    writeln(p2^[i]:6);
    v:=v+1;
    if      v = 10000 then
     begin
      readkey;
      clrscr;
      v:=0;
     end;
   end;
 end;
end;

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

В процедуре massiv2 объявлены две переменные i и v типа integer.
Создается новый объект p2 типа real.
Переменной k присваивается значение 0.
Переменной v присваивается значение 0.
Запускается цикл for, который выполняется 10000 раз.
Внутри цикла в каждой итерации генерируется случайное число от 0 до 500 с помощью функции random(501)-250.
Если полученное число не делится на 2 без остатка, то увеличивается счетчик k на 1.
Если значение переменной k равно 10000, то считывается символ с клавиатуры и очищается экран.
Переменная v сбрасывается в ноль.
Цикл for завершается.
Вызывается функция readkey, чтобы дождаться нажатия клавиши.
Вызывается функция clrscr, чтобы очистить экран.
Код завершается.