[Kosten]

Спасибо!))
Вот что получилось в итоге, ажно сам собой доволен ;-)))

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Clear;
  randomize;
  for i:=1 to 5 do
   begin
     a[i]:=50-random(100);
     StringGrid1.Cells[i-1,0]:=IntToStr(a[i]);
   end;
     begin
      for i:=1 to 5 do
      a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
      min:=1;
      for i:=2 to 5 do
      if a[i]<a[min] then
      min:=i;
      memo1.lines.add('Минимальный элемент:'+' '+IntToStr(a[min]));
      memo1.lines.add('Номер минимального элемента:'+' '+IntToStr(min));
     end;
       begin
        for i:=1 to 5 do
        a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
        max:=1;
        for i:=2 to 5 do
        if a[i]>a[max] then
        max:=i;
        memo1.Lines.add('Максимальный элемент:'+' '+IntToStr(a[max]));
        memo1.lines.add('Номер максимального элемента:'+' '+IntToStr(max));
       end;
         begin
          elementi:=0;
          for i:=1 to 5 do
          if a[i]<0 then
          inc(elementi);
          memo1.lines.add('Количество отрицательных элементов:'+' '+IntToStr(elementi));
          end;
end;

end.