Fill in the blanks in the Pascal code.

The completed code is as follows:

var M: array [1..10] of integer;
i, max: integer;
begin
  randomize;
  for i:=1 to 10 do
  begin
    M[i]:= random (100);
    write (M[i],' ');
  end;
  max := M[1];
  for i:= 1 to 10 do
  begin
    if (M[i] > max) then
      max: = M[i];
  end;
  writeln('Maximum: ',max)
end.