Среди n введенных с клавиатуры чисел, отыскать сумму положительных и творенье

Var n, sum, p: integer;
begin
sum := 0;
p := 1;
repeat
write('Введите число (для завершения программы введите 0000): ');
readln(n);
if n lt;gt; 0 then begin
if n gt;= 0 then sum := sum + n;
if n lt; 0 then p := p * n;
end
else writeln('Результат');
writeln( 'Сумма положительных: ', sum, ' Произведение отрицательных: ', p);
writeln();
until n = 0000;
end.