Вычислить значение выражения

{Пятое задание}
const
  a: array [1..3, 1..3] of real = ((1.2, -3.4, 5.3), (-7.7, 5.1, -7.9), (5.7, -5.0, -4.7));
 
var
  i, j, m, n: integer;
  max: real;
 
begin
  writeln('Исходный массив:');
  max := a[1, 1];
  for i := 1 to 3 do 
  begin
    for j := 1 to 3 do 
    begin
      write(a[i, j]:7);
      if (i = j) and (a[i, j] > max) then begin max := a[i, j]; m := i; n := j end;
    end;
    writeln;
  end;
  
  writeln;
  writeln('Максимальный элемент главной диагонали: a[', n, ',', m, '] = ', max);
  readln
  
end.

{ Второе задание }
const
  n = 50;
 
var
  x: array[1..n] of integer;
  i, a, b, s, k: integer;
 
begin
  randomize;
  repeat
    writeln('Введите порог ( a < b ):');
    readln(a, b)
  until a < b;
  writeln('Исходный массив:');
  for i := 1 to n do 
  begin
    x[i] := random(50) - 25; write(x[i]:5);
    if (x[i] >= a) and (x[i] <= b) then begin s := s + x[i]; k := k + 1 end;
  end;
  writeln;
  writeln('Всего элементов, входящих в промежуток [', a, ',', b, ']: ', k, ', их сумма = ', s);
  readln
  
end.