Найти максимальный элемент массива

uses crt;
const m=2; n=5;
var a:array [1..m,1..n] of real;
i,j:integer;
max:real;
 
begin
   Writeln('Матрица А: ');
   max:=1;
   For i:=1 to m do
     begin
        For j:=1 to n do
        begin
        randomize;
        a[i,j]:=random*50-25;
        write(a[i,j]:8:2);
        if a[i,j]>max then max:=a[i,j];
        end;
     writeln;
     end;
     Writeln; Writeln('Max = ',max:0:2)
end.

uses crt;
var b: array [1..2,1..5] of real;
    i,j,imax,jmax: integer;
begin
writeln('Дан массив');
imax:=1; jmax:=1;
for i:=1 to 2 do
    begin
    for j:=1 to 5 do
        begin
        b[i,j]:=(random(19)-9)/(random(9)+1);   //эта конструкция позволяет генерировать дробные числа, разу уж надо вещественными заполнить, если не нравится, оставь только первую часть random(19)-9
        write(b[i,j]:5:1);
        if b[i,j]>b[imax,jmax] then
           begin
           imax:=i;
           jmax:=j;
           end;
        end;
    writeln;
    end;
writeln('Максимальный элемент = ',b[imax,jmax],' в строке ',imax,', в столбце ',jmax);
end.

uses crt;
 
var s:string;
f:text;
 
begin
   Assign(f,'in.txt');
   rewrite(f);
   Write('Введите строку для записи в файл: ');readln(s);
   Write(f,s);
   Writeln('Текст записан в in.txt.');
   close(f);
end.