Do the following: Open the incomplete program in the Question 4 folder - NSC Information Technology - Question 4 - 2020 - Paper 1

For the second part, create a nested loop to display the contents of arrContainers:

1. Set an index for the rows of display and set it initially to zero.
2. Loop through rows to display data in 5 rows.
3. For each row, loop through 10 columns and append the values from arrContainers based on the appropriate index.
4. Format your output to display in the redQ4_1_2 component and ensure proper spacing.

The code will look something like this:

for row := 0 to 4 do
begin
  line := '';
  for col := 0 to 9 do
  begin
    line := line + FloatToStr(arrContainers[row * 10 + col]) + ' ';
  end;
  redQ4_1_2.Lines.Add(line);
end;

In this part, you will need to manage the loading process of containers onto the ship:

1. Initialize a variable TotalTons to zero.
2. Loop through arrContainers checking the weight of each container.
3. If adding the weight of a container keeps the total under or equal to 200 tons, add that weight to TotalTons and store the detail of this container.
4. If the next container's weight would exceed 200 tons, skip it and proceed to the next.
5. Display the total weight in the panel pnlQ4 and write it to Tons.txt.

Here’s how you could write the code:

TotalTons := 0;
for index := 1 to 50 do
begin
  if (TotalTons + arrContainers[index]) <= 200 then
  begin
    TotalTons := TotalTons + arrContainers[index];
    redQ4_2.Lines.Add(FloatToStr(arrContainers[index]));
  end;
end;
// Write to file
AssignFile(TonsFile, 'Tons.txt');
Rewrite(TonsFile);
WriteLn(TonsFile, TotalTons);
CloseFile(TonsFile);