Я написал, но ответ не тот который нужен. Где ошибка?
Код:
var
a:array[0..4] of integer;
i,j,l,k,max,min:integer;
begin
for i:=0 to 4 do
a[i]:=StrToInt(StringGrid1.Cells[i,0]);
for i:=0 to 4 do begin
min:=1;
if (a[i]<1) then
for j:=i+1 to 4 do if (a[i]<a[Min]) then min:=j;
s:=a[i];
a[i]:=a[Min];
a[min]:=s;
end;
for i:=0 to 4 do begin
max:=1;
if (a[i]>1) then
for l:=i+1 to 4 do if (a[i]>a[Max]) then max:=l;
k:=a[i];
a[i]:=a[Max];
a[max]:=k;
StringGrid2.Cells[i,0]:=IntToStr(a[i]);
end;
end;