Почему элемент выводится только для одной строки?

Задание такое: на каждой строке матрицы вывести минимальный элемент. У меня выводит только для одной строки, а должен - для каждой.

program m23
integer::n,x,y,m,min
integer,allocatable,dimension(:,:)::a
print*,'Enter M'
read*,m
print*,'Enter N'
read*,n
allocate(a(m,n))
print*,'Enter elements of matrix'
do y=1,m
    read*,(a(y,x),x=1,n)
end do
do x=1,n
    min=a(1,x)
    do y=1,m
        if(a(y,x)<min)then
            min=a(y,x)
        end if
    end do
    print*,'Min na',x
end do
do y=1,m
    print*,'Stroke',min
end do
deallocate(a)
end program