Okay, I started again. This is my improved version (but still not working!):
program sorting
integer :: d,length,center,t,i,n,m
integer :: a(128), b(128)
!List of numbers
Print *,'How many numbers would you like to type in?'
Read(*,*)d
Print*,' Enter the values, separated by...