Очень СРОЧНО!!!!!В Pascal ABC составить задачу: Вывести на экран первые 10 нечётных отрицательных чисел.

program z1;
var
i,k:integer;
begin
k:=0;
i:=0;
while i lt;gt; 10 do begin
dec (k);
if (abs (k) mod 2 =1 ) and (k lt; 0) then
begin
writeln (k);
inc (i);
end;
end;
end.