Составить Алгоритм по готовой программе. Делфи

[Bracho1994]

Здравствуйте, помогите, пожалуйста, составить алгоритм по вот этой задаче

Экологическая служба города ведет ежедневный учет загрязненности окисью углерода в каждой из 20 особых точек города.
Получить ответ на запрос : в какой точке города в данный конкретный день максимальна загрязненность воздуха?

Вот текст программы

procedure TForm1.FormActivate(Sender: TObject);
begin
   ADOQuery2.SQL.Clear;
   ADOQuery2.SQL.Text:='SELECT * FROM [Place]';
   ADOQuery2.Open;
   while not ADOQuery2.Eof do
      begin
         ComboBox1.Items.Add(ADOQuery2.Fields[1].AsString);
         ADOQuery2.Next;
      end;
   ComboBox1.ItemIndex:=0;
   ADOQuery2.Close;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('SELECT b1.Date_metering, b2.Name_place, b1.Value_metering');
   ADOQuery1.SQL.Add('FROM (Metering AS b1');
   ADOQuery1.SQL.Add('LEFT JOIN Place AS b2 on b1.Id_place=b2.Id_place)');
   ADOQuery1.SQL.Add('WHERE b1.Id_place=:Param1');
   ADOQuery1.Parameters.Refresh;
   ADOQuery1.Parameters[0].Value:=ComboBox1.ItemIndex+1;
   ADOQuery1.Open;

   ADOQuery2.SQL.Clear;
   ADOQuery2.SQL.Add('SELECT * FROM Metering AS b1');
   ADOQuery2.SQL.Add('WHERE b1.Value_metering=(');
   ADOQuery2.SQL.Add('SELECT Max(Metering.Value_metering) AS Maks');
   ADOQuery2.SQL.Add('FROM Metering');
   ADOQuery2.SQL.Add('WHERE Metering.Id_place=:Param2)');
   ADOQuery2.Parameters.Refresh;
   ADOQuery2.Parameters[0].Value:=ComboBox1.ItemIndex+1;
   ADOQuery2.Open;
   Label1.Caption:='Загрязненность воздуха в "'+ComboBox1.Text+'" была максимальной '+DateToStr(ADOQuery2.Fields[2].AsDateTime)+' и составляла '+FloatToStrF(ADOQuery2.Fields[3].AsFloat,ffNumber,15,4);
   ADOQuery2.Close;
end;

end.		

Буду премного благодарен!!

Вот пример алгоритма на такую задачу

В цехе 20 станков с числовым программным управлением и один обслуживающий их рабочий-наладчик. Ежедневно в течение недели рабочий-наладчик записывает тип обслуженного им станка и затраченное время. Определить, какой из дней недели был у него самым напряженным.

Снимок.JPG

const WeekDays: array[1..7] of string = ('понедельник', 'вторник',
'среда', 'четверг', 'пятница', 'суббота', 'воскресенье');

procedure TForm1.Button1Click(Sender: TObject);

var equipment: array[1..7, 1..20] of integer;
var hours: array[1..7] of integer;
var MaxDay: integer;
var MaxHours: integer;
var i,j: integer;

begin
for i:=1 to 7 do
for j:=1 to 20 do
equipment[i,j] := 0;


equipment[1,2] := 2;
equipment[1,8] := 3;


equipment[2,5] := 6;

equipment[3,12] := 1;
equipment[3,15] := 1;
equipment[3,18] := 1;

equipment[3,12] := 1;
equipment[3,15] := 1;
equipment[3,18] := 1;

equipment[4,3] := 1;
equipment[4,15] := 2;
equipment[4,16] := 3;

equipment[5,5] := 2;
equipment[5,6] := 2;
equipment[5,7] := 2;
equipment[5,19] := 1;

equipment[6,15] := 3;
equipment[6,1] := 2;
equipment[6,8] := 2;

equipment[7,9] := 4;
equipment[7,18] := 1;

for i:=1 to 7 do begin
hours[i] := 0;
for j:=1 to 20 do begin
hours[i] := hours[i] + equipment[i,j];
end;
end;

MaxHours := 0;
for i:=1 to 7 do begin
if (hours[i]) > MaxHours then begin
MaxHours := hours[i]; 
MaxDay := i;
end;
end;

labelWeekDay.Caption := WeekDays[MaxDay];
end;

end.