Найти минимальное значение среди корней двух квадратных уравнений

Program min_max;
Uses crt;
 var b:array [1..100,1..100] of integer;
     a,c:array [1..100] of integer;
     i,j,n,min,max:integer;
begin
clrscr;
 Writeln (' vvedite razmernost matrici ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
for j:=1 to n do begin
                      max:=b[1,j];
                      for i:=2 to n do
                      if b[i,j]>=max then max:=b[i,j];
                      a[j]:=max;
                      end;
Writeln (' Max elementy stolbcov ');
for j:=1 to n do
write (a[j]:4);
writeln;
for i:=1 to n do begin
                      min:=b[i,1];
                      for j:=1 to n do
                      if b[i,j]<=min then min:=b[i,j];
                      c[i]:=min;
                      end;
Writeln (' Minimal elementy v stroke ');
for i:=1 to n do
write (c[i]:4);
Readln
end.