Вычислить значение выражения М=(а1+а3+а4):3,где а1,а3,а4 максимальные элементы соответственно 1,3 и 4 рядов матрицы А(4Х5) — Pascal(Паскаль)

program matrica;

uses crt;

const
  n = 4;
  l = 5;

type
  matr = array [1 .. n, 1 .. l] of integer;

var
  a: matr;
  i: integer;
  j: integer;
  t: array [1 .. 4] of integer;
  max: integer;
  m: real;
  summa: integer;

begin
  write('исходная матрица');
  clrscr;
  randomize;
  writeln;
  for i := 1 to n do
  begin
    for j := 1 to l do
    begin
      a[i, j] := random(10);
      write(a[i, j], ' ');
    end;

    writeln;
  end;
  writeln;
  for i := 1 to 4 do
  begin
    max := a[i, 1];
    for j := 2 to 5 do
      if max < a[i, j] then
        max := a[i, j];
    t[i] := max;
    write(t[i], ' ');
  end;
  writeln;
  writeln;

  begin
    summa := 0;
    summa := t[1] + t[3] + t[4];

    m := summa / 3
  end;
  write('m=', m:2:2);
  readln;

end.