парни, п0могите....

[^BaffY^]

у нас контрольная по паскалю, дали задание:
Вводится массив N строк, каждая строка заканчивается нулевым символом [символ 0] отсортировать строки в порядке убывания суммы кодов первых трёх символов , то есть со вставкой.
нужен программный код для паскаля....

[Z1000000]

program Laba;
var
 M : array[0..9] of String;
 indexmax,i,j,max : Integer;
 sTmp : String;

function SummaOrd ( aStr: String ) : Integer;
 begin
 SummaOrd := Ord(aStr[1])+Ord(aStr[1])+Ord(aStr[3]);
 end;

begin
M[0]:='123';
M[1]:='124';
M[2]:='125';
M[3]:='126';
M[4]:='127';
M[5]:='128';
M[6]:='129';
M[7]:='130';
M[8]:='131';
M[9]:='132';

for i:= 0 to 8 do
 begin
 max := SummaOrd(M[i]);indexmax := i;
 for j:=i to 9 do
  begin
  if max < SummaOrd(M[j]) then begin max := SummaOrd(M[j]);indexmax := j;end;
  end;
 if i <> j then
  begin
  sTmp := M[i];M[i]:=M[indexmax];M[indexmax]:=sTmp;
  end;
 end;

end.