Процедуры: найти минимальные элементы в каждой строке матрицы

uses crt;
const
n=4;
procedure lolpro(var matr:array[1..n,1..n] of real) ;
var
xes:text;
i,j: integer;
begin
assign (xes,'F:\xes.txt');
reset(xes);
for j:=1 to n do
for i:=1 to n do
read (xes,matr[i,j]);
close(xes);
for j:=1 to n do
begin
for i:=1 to n do
write(matr[i,j],' ');
writeln;
end;
end;
 
procedure vvod(var matr:array[1..n,1..n]of real);
   var
   i,j,k:integer;
   b:integer;
   a:real;
begin
   for i:=1to n do
   for j:=1to n do
       begin
       writeln('vvesty matricy b[',i,j,']');
       readln(matr[i,j]);
       end;
       end;
 
procedure mind(var b:array[1..n,1..n]of real);
var i,j:integer;
min,max:real;
begin
for i:=1 to n do
for j:=1 to n do begin
 
if b[i,j]>max then max:=b[i,j];
 
for i:=1 to n do begin
min:=max;
for j:=1 to n do begin
if b[i,j]<min then min:=b[i,j];
end;
writeln (min);
end;
end;
end;
 
var
    matr:array[1..n,1..n]of real;
    var
    b:array[1..n,1..n]of real;
    min: real;
    i,j:integer;
    x:real;
    
    begin
   writeln('ââåäèòå õ:1 åñëè õîòèòå ââîä ìàòðèöû èç ôàéëà,ââåäèòå Õ:2 åñëè õîòåòèòå ââåñòè  ìàòðèöó âðó÷íóþ        ');
    readln(x);
    if x=1 then
    begin
    writeln('íà÷àëüíûå äàííûå:');
    lolpro(matr);
    writeln;
    end;
    if x=2 then
    begin
    vvod(matr);
    writeln;
    end;
    
    writeln('îòâåò:');
    mind(matr);
    for i:=1 to n do
    begin
 
 
end;
end.

uses crt;
const n = 4;
var x:byte;  i,j:integer; m:array [1..n,1..n] of real;
procedure FromFile;
  var  xes:text;
begin
   assign (xes,'xes.txt');
   reset(xes);
     for j:=1 to n do
        for i:=1 to n do
           read (xes,m[i,j]);
     close(xes);
     clrscr;
     for j:=1 to n do
        begin
          for i:=1 to n do
          write(m[i,j],' ');
          writeln;
        end;
end;
//
Procedure ByTheHands;
begin
    For j:=1 to n do
      For i:=1 to n do
       begin
        Writeln ('Ýëåìåíò [',i,',',j,']');
        Readln (m[i,j]);
       end;
    clrscr;
    For j:=1 to n do
        begin
          For i:=1 to n do
          write(m[i,j],' ');
          writeln;
        end;
end;
//
procedure mind(var m:array[1..n,1..n]of real);
var i,j:integer; min:real;
begin
 For j:=1 to n do
  begin
   min:=m[1,j];
     For i:=1 to n do
      If min>m[i,j] then min:=m[i,j];
   Writeln ('Ìèíèìóì ñòðîêè ¹',j,' = ',min);
  end;
end;
//
begin
Writeln ('1 - Ôàéë; Äðóãîå - Âðó÷íóþ');
Read (x);
If x = 1 then fromfile else bythehands;
mind (m);
end.