[Alfa1997]

Я написал, но ответ не тот который нужен. Где ошибка?

Код:

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;