Турбо Паскаль! Помогите отыскать ошибку.error 85 ; expected и курсор переводит

кстати а разве в конце не должно быть Readkey а не readln?

В PascalABC.NET транслируется без ошибок, если отключить оператор uses crt;

Минимум и максимум в массиве В находится не верно. Строчку begin после строчки writeln(b[x],' '); переместить перед строчкой writeln(b[x],' '); и поменять writeln(b[x],' '); на write(b[x],' '); , чтоб выводилось в одну строку, добавить writeln; перед строчкой writeln('minB=', minB);

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 gt; a[i, j] then minA := a[i, j];

           if maxA lt; 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 gt; b[i] then minB := b[i];

       if maxB lt; 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] gt; 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.