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

[Juli Warner]

Help me please)
Как
-сортировку оформить в виде процедуры
-сумму четных кодов оформить в виде функции

Program Massiv;
Uses Crt;
var a:array [1..100]of char;
i,n,j,s:integer;
buf,x:char;
Begin
ClrScr;
WriteLn('Vvedite razmer massiva');
ReadLn(n);
WriteLn('Vvedite elementy massiva');
for i:=1 to n do
ReadLn(a[i]);
WriteLn('Massiv do sortirovki');
for i:=1 to n do
Write(a[i],'');
WriteLn;
for i:=1 to n-1 do begin
for j:=i+1 to n do
if a[i]>a[j] then begin x:=a[j];
a[j]:=a[i];
a[i]:=x;  end;
end;
WriteLn('Uporyadochenniy massiv:');
for i:=1 to n do
begin
write(a[i]:2);
if ord(a[i]) mod 2 =0 then s:=s+ord(a[i]);write(ord(a[i]):4);
end;
WriteLn;
Write('Summa chetnih kodov=',s);
ReadLn;
End.

[ViktorR]

Например так:

Program Massiv;
Uses Crt;
Type TMas = array [1..100]of char;

procedure Sortmas(var mas : TMas; n : integer);
var x : char;
   i, j : integer;
begin
  for i:=1 to n-1 do begin
    for j:=i+1 to n do
       if mas[i] > mas[j] then begin
          x := mas[j];
         mas[j] := mas[i];
         mas[i] := x;
       end;
  end;
end;

function SumPar(mas : TMas; n : integer) : integer;
 var i, s : integer;
begin
   s := 0;
   for i:=1 to n do begin
      if ((ord(mas[i]) mod 2) = 0) then
         s := s + ord(mas[i]);
   SumPar := s;
end;

var a:TMas;
...
begin
   ...
WriteLn('Massiv do sortirovki');
for i:=1 to n do
Write(a[i],'');
WriteLn;
Sortmas(a, n);
...
Write('Summa chetnih kodov=', SumPar(mas, n));
...
End.

Отдельные места пропущены, но думаю, что понять можно
Думаю, что полезно узнать, почему при описании одного из параметров процедуры использовано волшебное слово var ...


Как-то так, ...