переставить массив

[dyc9]

все всем спасибо разобрался сам)

PHP код:

procedure TForm1.btn1Click(Sender: TObject);
var a,b:array[1..15] of integer;
i,n,x,summ:Integer;
begin
for i:=1 to 15 do if Length(strngrd1.Cells[i-1,0])<>0
then a[i] := StrToint(strngrd1.Cells[i-1, 0]) else a[i] :=Random (1000);
for i:=1 to 15 do  strngrd1.Cells[i-1, 0]:=IntToStr(a[i]);
for i :=15 downto  1 do begin  b[i] := a[15 - i + 1];
StringGrid1.Cells[i-1,0]:= IntToStr(b[i]);  end;
end;

procedure TForm1.strngrd1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9','-',#8,#13]) // ñèìâîëû êîòîðûå ïðîïóñêàþòñÿ
   or ((Key = DecimalSeparator) // âñå öèôðû çíàê ìèíóñ ðàçäåëèòåëü
   and (POS (DecimalSeparator, strngrd1.Cells[strngrd1.Col,strngrd1.Row]) > 0)) // çàïðåò íà âòîðîé ñåïàðàòîð
   or ((Key = '-') and (POS ('-', strngrd1.Cells[strngrd1.Col,strngrd1.Row]) > 0)) // çàïðåò íà âòîðîé ìèíóñ
   or ((Key = '-') and (length(strngrd1.Cells[strngrd1.Col,strngrd1.Row])<>0)) // çàïðåò íà ìèíóñ íå âíà÷àëå öèôðû
   then // (ìîæíî è ïðåäûäóùåé ñòðî÷êè íî òàê ëó÷øå äëÿ ïîíèìàíèÿ)
 begin
     Key := #0; // çàïðåùåííûé ñèìâîë çàìåíÿåì íóëåì
     MessageBeep (MB_OK); //
 end;
 Caption:=strngrd1.Cells[strngrd1.Col,strngrd1.Row];
end;
end.