Пусть дана вещественная матрица размером nxm, все элементы которой раз¬личны. В каждой строке выберите элемент с наименьшим значением, затем среди этих чисел выберите наибольшее. Укажите индексы найденного эле¬мента.Напишите программу в Паскале АBC,ПОЖАЛУЙСТА,Зачёт в четверг,нужно сделать,заранее спасибо)

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.