Error 207 - не знаю, как избавиться

program lab_2_5;
 
 type vx=array[1..12,1..4] of real;
      vy=array[1..12,1..4] of real;
      vs=array[1..4] of real;
 
 var x:vx;
     y:vy;
     s:vs;
     i,j:integer;
     x_sr,summ:real;
 
begin
 
 for j := 1 to 12 do
  for i := 1 to 4 do
 
   begin
 
    writeln ('Enter element string # ', j ,' and column # ', i);
    readln (x[i,j]);
 
   end;
 
  for j := 1 to 4 do
 
   begin
 
    x_sr:=0;
 
    for i:= 1 to 12 do x_sr:=x_sr+x[i,j];
 
    summ:=0;
 
    for i := 1 to 12 do summ:=summ + (x[i,j]-x_sr/12);
 
    s[j]:=sqrt(1/12*summ);
 
   end;
 
   for j:= 1 to 4 do
    for i:= 1 to 12 do
 
    begin
 
     y[i,j]:=x[i,j]/s[j];
 
    end;
 
   for j:= 1 to 4 do
    begin
     for i:= 1 to 12 do writeln(y[i,j]:8:2);
     writeln;
    end;
 
  readln;
 
end.

procedure PrintMatrix(x,y: integer; M: Matrix);
var
  i,j: integer;
begin
  for i:=1 to x do begin
  for j:=1 to y do
  write(M[i,j]:6:2);
  writeln;
  end;
end;