работа со строковыми процедурами и функциями

[pooharilo]

Функция CHARSORT(C:STRING; N1, N2: BYTE; L:BOOLEAN); STRING-возвращает отсортированную строку C,N2-номер позиции в C, с которой идет сортировка, а N1-количество литер, которое необходимо сортировать. Сортировка по возрастаниюL=TRUE, по убыванию L:=FALSE.

[pooharilo]

Очень прошу сделайте её, сдам ей зачет поставят, не сдам не поставят=(

[alex_fcsm]

uses crt;
var s:string;
    a,b:integer;
    flag:boolean;
    ch:char;
    
function CHARSORT(C:STRING; N1, N2: BYTE; L:BOOLEAN): STRING;
var i,j:integer;
    res:string;
    temp:char;
begin
 res:=c;
if L then begin
            for i:=n2+1 to n1+n2-1 do
             for j:=n1+n2-1 downto i do
                if res[j]<res[j-1] then
                 begin
                  temp:=res[j];
                  res[j]:=res[j-1];
                  res[j-1]:=temp;
                 end;
          end
   else begin
          begin
            for i:=n2+1 to n1+n2-1 do
             for j:=n1+n2-1 downto i do
                if res[j]>res[j-1] then
                 begin
                  temp:=res[j];
                  res[j]:=res[j-1];
                  res[j-1]:=temp;
                 end;
          end
        end;
Charsort:=res;
end;


begin
writeln('Input string');
readln(s);
writeln('Number of first char');
readln(b);
writeln('Amount');
readln(a);
Writeln('Vozr -1 Ybyv -2');
repeat
ch:=readkey;
case ch of
'1':writeln(charsort(s,a,b,true));
'2':writeln(charsort(s,a,b,false));
 end;
 until (ch='1') or (ch='2');
end.

[pooharilo]

Спасибо, выручили =))