ПОМОГИТЕ Безотлагательно! ОТВЕТ ПОДРОБНЕЕ ПЖ!В таблице Dat хранятся положотельные или отрицательные

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

В таблице 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 lt; 0 then
begin
m := Dat[k]
end;
writeln(m);
end.