Решал задачу на Делфи, т.к. сдача завтра - решил не заморачиваться по поводу написания сортировки и стянул псевдокод с педивикии.
На первый взгляд, задача решена, сохранился, скомпилировал, запустил. Но стоило мне ввести данные, как дебаг выдал ошибку. Консоль закрыть невозможно, через 3 секунды винда вылетела в BSoD 
Признаюсь, что в душе всегда оставался мазахистом, потому после рестарта опять запустил прогу и глазел белые символы на синем фоне 
Кто желает присоединиться (сами компилируем код или запускаем эксешку):
Code
var i,j,n,sw:Integer; S:array [1..100] of integer; Na:array [1..100] of string;nw:string;
begin
read(n);
for i:=1 to n do
begin
read(Na[i]);
read(S[i]);
end;
for i:=2 to n do
begin
sw:=S[i];
nw:=Na[i];
j:=i-1;
while ((j>=1) and (S[j] > sw)) do
begin
S[j+1]:=S[j];
Na[j+1]:=Na[j];
j:=j-1;
end;
S[j+1]:=sw;
Na[j+1]:=nw
end;
for i:=1 to n do
begin
writeln('Name: ',Na[i]);
writeln('Rate: ',S[i]);
end;
read(i);
end.
