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

uses crt;
var a: array [1..5,1..10] of integer;
    str: array [1..5] of integer;
    stl: array [1..10] of integer;
    i,j,r,max,min: integer;
begin
writeln('Дан массив');
for i:=1 to 5 do
    begin
    for j:=1 to 10 do
        begin
        a[i,j]:=random(101)-50;
        write(a[i,j]:4);
        end;
    writeln;
    end;
r:=1;
repeat
writeln;
writeln('1 - минимальное в каждой строке');
writeln('2 - максимальное в каждой строке');
writeln('3 - минимальное в каждом столбце');
writeln('4 - максимальное в каждом столбце');
writeln('другую цифру для завершения');
readln(r);
case r of
1:
begin
writeln('Минимальное в каждой строке');
for i:=1 to 5 do
    begin
    min:=a[i,1];
    for j:=1 to 10 do
        if a[i,j]<min then min:=a[i,j];
    str[i]:=min;
    write(str[i]:4);
    end;
end;
2:
begin
writeln('Максимальное в каждой строке');
for i:=1 to 5 do
    begin
    max:=a[i,1];
    for j:=1 to 10 do
        if a[i,j]>max then max:=a[i,j];
    str[i]:=max;
    write(str[i]:4);
    end;
end;
3:
begin
writeln('Минимальное в каждом столбце');
for j:=1 to 10 do
    begin
    min:=a[1,j];
    for i:=1 to 5 do
        if a[i,j]<min then min:=a[i,j];
    stl[j]:=min;
    write(stl[j]:4);
    end;
end;
4:
begin
writeln('Максимальное в каждом столбце');
for j:=1 to 10 do
    begin
    max:=a[1,j];
    for i:=1 to 5 do
        if a[i,j]>max then max:=a[i,j];
    stl[j]:=max;
    write(stl[j]:4);
    end;
end;
end;
until (r>4) or (r<1);
end.