ПОМОГИТЕ СРОЧНО! ОТВЕТ ОБЪЯСНИТЬ ПОДРОБНЕЕ!

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

var k, m: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 5; Dat[2] := 4;
Dat[3] := -3; Dat[4] := 2;
Dat[5] := 1; Dat[6] := -10;
Dat[7] := 9; Dat[8] := 8;
Dat[9] := -7; Dat[10] := 6;
m := 1;
for k:= 1 to 10 do
if Dat[k]*m < 0 then
begin
m := Dat[k]
end;
writeln(m);
end.

Ответ: 6

Решение, это и есть сама программа, поэтому не могу объяснить решение, т.к. я его делаю на раз два