Сортировка масива

[dastreba]

Короче т.к с установкой делфи на ноут траблы,то пришлось писать в текстовике,прошу проверить на наличие ошибок.
Надо отсортировать масив по убыванию методом вставки.

{$APPTYPE CONSOLE}

uses
  SysUtils;
  const n=5;
var Mas:array[1..n] of integer;
i,j,Rez:integer;
Begin
For i:=2 to n do
Begin
j:=i;
while (j<1) and (Mas[j]>Mas[j+1]) do
Begin
Rez:=Mas[j];
Mas[j]:=Mas[j+1];
Mas[j+1]:=Rez;
j:=j+1;
End;
End;
End.

[Alex11223]

Тут не нужен Дельфи, любого Паскаля хватит.
Free Pascal/Lazarus, PascalABC.NET, ...
Можно даже в браузере https://ideone.com/

(uses SysUtils и $APPTYPE можно убрать)

[Serge_Bliznykov]

вот, например, код сортировки вставками:
http://programmersforum.ru/showpost....33&postcount=2