Обсуждение:Лабораторная работа №2 Программирование задач обработки одномерных массивов

паш посмотри что не так 

for I := 1 to n do for j:=1 to m do if j>j+1 then

   begin
    q:=a[j];
    a[j]:=a[j+1];
    a[j+1]:=q;
   end;