Несовместимые типы - динамический и обычный массив.

[paravoz1k]

Вот процедура, и обработчик кнопки меню. Ругается на то что в процедуре - массив не динамический, а в обработчике кнопки меню - динамический
Ума не приложу почему-так! Аналогично делал, все работало.
Господа знатоки, прошу помочь.

procedure prosto(var a: array of Char; value:integer);
var
i,j,p:integer;
begin

for i:=1 to value do
for j:=1 to value-i do
if ord(a[j]) > ord(a[j+1]) then
begin
p:=ord(a[j]);
a[j]:=a[j+1];
a[j+1]:=chr(P);
end;

end;



procedure TForm1.N10Click(Sender: TObject);
var
s: string;
i,j,p,value:integer;
a: array of Char;
begin
edit2.text := '';
value := Length(s) ;
s:= listbox1.Items[listbox1.itemindex];
setLength(a,value);
for i:= 1 to value do
a[i] := s[i];
prosto(a,value);
for i:= 1 to value do
edit2.text := edit2.text + A[i];





end;

[vasilisk-green]

procedure prosto(var a: array of Char; value:integer);

Как то это странно написано. Объявите новый тип и его используйте.

type ArrayOfChar = array of Char;
// . . .
procedure proc(var a: ArrayOfChar; value: integer);
// . . . 
proc(a, 10);

[mss]

procedure prosto(var a: array of Char; value:integer);

Здесь формальным параметром объявлен не динамический, а открытый массив.
Между динамическим и открым массивами большая разница.

[vasilisk-green]

mss, большое спасибо за напоминание.

Если кому понадобится:
Динамические типы данных
Динамические массивы
Открытые массивы