Код в паскале нужно перевести в делфи (для одномерного массива)
ССОРТИРОВКА С ПОМОЩЬЮ ПРЯМОГО ВКЛЮЧЕНИЯ.
PROGRAM SI;
VAR
I,J,N,X:INTEGER;
A:ARRAY[0..50] OF INTEGER;
BEGIN
WRITELN(‘Введите длину массива’);
READ(N);
WRITELN(‘Введите массив’);
FOR I:=1 TO N DO READ(A[I]);
FOR I:=2 TO N DO BEGIN
X:=A[I];
A[0]:=X;
J:=I;
WHILE X<A[J-1] DO BEGIN
A[J]:=A[J-1];
DEC(J)
END;
A[J]:=X
END;
WRITELN('Результат:');
FOR I:=1 TO N DO WRITE(A[I],' ')
END.