Турбо Паскаль! Помогите найти ошибку.error 85 ; expected и курсор переводит между real и = в массиве b
uses crt;
const a:array [1..4,1..4] of real=((5,3,2,1),(4,-1,2,-1),(3,7,-9,5),(-2,1,6,1));
var maxB, minB, maxA, MinA,y:real;
i,j,sort,x:integer;
b:array[1..9] of real=(4,2,-1,3,-9,5,-2,6,1);
begin
minA:=a[1,1];
maxA:=a[1,1];
for i:=1 to 4 do
for j:=1 to 4 do
begin
if minA>a[i,j] then minA:=a[i,j];
if maxA end;
writeln('minA=', minA);
writeln('maxA=',maxA);
writeln('nesortovaniy masiv:');
minB:=b[1];
maxB:=b[1];
for x:=1 to 9 do
writeln(b[x],' ');
begin
if minB>b[x] then minB:=b[x];
if maxB end;
writeln('minB=', minB);
writeln('maxB=',maxB);
writeln('sortovaniy masiv:');
y:=1;
for sort:=1 to 9 do
for x:=1 to 8 do
if b[x]>b[x+1] then
begin
y:=b[x];
b[x]:=b[x+1];
b[x+1]:=y;
end;
for x:=1 to 9 do
write(b[x],' ');
readln;
end.

uses crt;

const

   sizeA = 4;

   sizeB = 9;

   a: array [1..sizeA, 1..sizeA] of real = ((5, 3, 2, 1), (4, -1, 2, -1), (3, 7, -9, 5), (-2, 1, 6, 1));

var

   maxB, minB, maxA, minA, temp: real;

   i, j: integer;

   b: array[1..sizeB] of real = (4, 2, -1, 3, -9, 5, -2, 6, 1);

begin

   minA := a[1, 1];

   maxA := a[1, 1];

   for i := 1 to sizeA do

       for j := 1 to sizeA do

       begin

           if minA > a[i, j] then minA := a[i, j];

           if maxA < a[i, j] then maxA := a[i, j];

       end;

   writeln('minA=', minA);

   writeln('maxA=', maxA);

   writeln('nesortovaniy masiv:');

   minB := b[1];

   maxB := b[1];

   for i := 1 to sizeB do  

   begin

       write(b[i], ' ');

       if minB > b[i] then minB := b[i];

       if maxB < b[i] then maxB := b[i];

   end;

   writeln;

   writeln('minB=', minB);

   writeln('maxB=', maxB);

   writeln('sortovaniy masiv:');

   for j := 1 to sizeB - 1 do

       for i := 1 to sizeB - j do

           if b[i] > b[i + 1] then

           begin

               temp := b[i];

               b[i] := b[i + 1];

               b[i + 1] := temp;

           end;

   for i := 1 to sizeB do

       write(b[i], ' ');

   readln;

end.