решить тест по информатике 10 класс Паскаль

Var  a: array[1..10, 1..10] of real;   n, m, i, j, i1, j1, i2, j2: byte;   min, max: real; begin  writeln('введите кол-во строк и столбцов');   read(n, m); writeln;   for i : = 1 to n do  begin    writeln('введите ', m, ' эл. ', i, '-й строки матрицы');     for j : = 1 to m do read(a[i, j]) end;   writeln('ваша матрица: ');   for i : = 1 to n do  begin    for j : = 1 to m do write(a[i, j]: 7: 2);     writeln end;   for i : = 1 to n do  begin    min : = a[i, 1]; i1 : = i; j1 : = 1;     for j : = 1 to m do     if a[i, j] < min then begin        min : = a[i, j]; i1 : = i; j1 : = j      end;       if i = 1 then    begin   max : = min; i2 : = i1; j2 : = j1    end    else    if min > max then    begin      max : = min; i2 : = i1; j2 : = j1    end  end;   writeln('максимальным из минимумов строк является элемент ', max: 6: 2, ' с индексами [', i2, ',', j2, ']'); end.