ПОМОГИТЕ СРОЧНО! ОТВЕТ ПОДРОБНЕЕ ПЖ!

В таблице 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. В чём дело?

На экран будут напечатаны все отрицательные числа. То есть:Dat[3] := -3;Dat[6] := -10;Dat[9] := -7;В консоли, при выполнении программы, вы увидите: -3-10-7