Ошибка 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.